Hallo an alle,
ich suche ach eine Funktion mit der ich Datei namen es Ordners füllen kann,
ich möchte aber nur die Datei namen in die Listbox schreiben bei denin den Datei-
eigenschaften unter im Kommentar folgenden Zeichenreihen folge vorhanden ist
"PTR3"
derzeit fülle ich die Listbox mit allen DAteien auch mit den wo nicht im Kommentar "PTR3" steht
wie folgt!
Dim Verzeichnis() As String
Dim Anzahl As Integer
Dim i As Integer
Dim strVerzeichnis As String
Dim StrDatei As String
Dim StrTyp As String
Dim Dateiname As String
lstToolArchiv.Clear
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(UF_Ligitimation.txtPfad & "\ToolArchiv\") = True Then
Anzahl = 0
' Liste erstellen
Ordner_erstellen (UF_Ligitimation.txtPfad & "\ToolArchiv\")
strVerzeichnis = UF_Ligitimation.txtPfad & "\ToolArchiv\"
StrTyp = "*.xls"
Dateiname = Dir(strVerzeichnis & StrTyp)
i = 3
Do While Dateiname ""
Anzahl = Anzahl + 1
ReDim Preserve Verzeichnis(1 To Anzahl)
Verzeichnis(Anzahl) = Dateiname
Dateiname = Dir
Loop
lstToolArchiv.AddItem "new project"
' Dateinamen in lstToolArchiv schreiben
For i = Anzahl To 1 Step -1
lstToolArchiv.AddItem Verzeichnis(i)
Next i
lstToolArchiv.Value = "new project"
End If
End Sub
Hat einer eine Idee wie ich soetwas hinbekomme.
Gruß
Swen