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:
Die DirListBox startet in einem bestimmten Verzeichnis.
Wenn ich einen Eintrag Doppelklicke kann ich mir den Pfad anzeigen lassen:
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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 49853
Url: https://administrator.de/contentid/49853
Ausgedruckt am: 05.11.2024 um 19:11 Uhr
3 Kommentare
Neuester Kommentar
Hallo skid!
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:
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
... 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
Grüße
bastla