skid
Goto Top

Eintrag in einer DirListBox markieren und Wert übergeben

Hi,

suche in VB eine Möglichkeit den Namen eines markierten Eintrags zu ermitteln.

D.h. ich markiere (Einfachklick) einen Eintrag in der DirListBox und möchte diesen z.B. in einer MsgBox wieder ausgeben.

Hier schon mal das was ich bisher habe:

Private Sub Form_Load()

Drive1.Drive = "\\Servername"  

Dir1.Path = "\\Servername\Freigabe"  

Dir1.Path = Drive1.Drive

End Sub

Die DirListBox startet in einem bestimmten Verzeichnis.
Wenn ich einen Eintrag Doppelklicke kann ich mir den Pfad anzeigen lassen:

Private Sub Command1_Click()

MsgBox Dir1.Path

End Sub 

So, das ganze soll jetzt aber auch funktionieren wenn der Eintrag nur Markiert ist.

Vielleicht kann mir ja jemand sagen wie es geht !?

Gruß
SKID

Content-ID: 49853

Url: https://administrator.de/contentid/49853

Ausgedruckt am: 05.11.2024 um 19:11 Uhr

bastla
bastla 25.01.2007 um 17:01:31 Uhr
Goto Top
Hallo skid!

Einfach so wie bei einer gewöhnlichen ListBox:
MsgBox Dir1.List(Dir1.ListIndex)

Grüße
bastla
skid
skid 26.01.2007 um 09:31:00 Uhr
Goto Top
Hi bastla,

Super, genau das war es face-smile

Hmmm...hat zwar mit der eigentlichen Fragestellung nix zu tun aber gibt es , so auf die schnelle, eine Möglichkeit den Doppelklick auf die einzelnen Einträge in der DirListBox zu unterbinden ?

Also so, das es nicht möglich ist in die Unterverzeichnisse zu gelangen ?

Gruß
SKID
bastla
bastla 26.01.2007 um 11:50:36 Uhr
Goto Top
Hallo skid!

... das es nicht möglich ist in die Unterverzeichnisse zu gelangen ...
Eigentlich wäre das über die Sicherheitseinstellungen zu bewerkstelligen.

Du könntest aber das Auflisten der Dateien für ganz bestimmte Ordner verhindern. Dazu könnte der Code für das "Dir1_Change"-Ereignis schematisch etwa folgenden Inhalt haben:
If Instr(LCase(Dir1.Path), "verboten") Then  
    MsgBox "Ordner nicht verfügbar ..."  
ElseIf Instr(LCase(Dir1.Path), "whatever")  
    'oder auch gar kein Code  
Else
    File1.Path = Dir1.Path
End If
Damit würdest Du zB Inhalte von Ordnern, deren Pfad die Bestandteile "verboten" oder "whatever" enthält, nicht in der FileListBox anzeigen. Ob diese Vorgangsweise sinnvoll ist, musst Du selbst beurteilen.

Grüße
bastla