Dateien in Liste auflisten

D

daredevil

Hallo,
ich möchte alle Dateien (haben alle die Endung .dat) in einem bestimmten Ordner in einer Liste auflisten. Dabei soll der Dateiname ohne Endung in die Liste eingetragen werden.
Kann mir da irgendjemand helfen?

Danke im voraus
daredevil
 
Am besten ist, du verwendest eine FileListBox mir dem entsprechenden Filter. Dann kannst du alle Dateien dort abrufen und den Filenamen minus der 4 letzten Buchstaben in deine Liste kopieren. Code würde so aussehen:
Code: 
Private Sub Command1_Click()
 If File1.ListCount > 0 Then
  For cnt = 0 To File1.ListCount - 1
   List1.AddItem Left(File1.List(cnt), Len(File1.List(cnt)) - 4)
  Next cnt
 End If
End Sub


Der Doc!
 
um das jetzt dynamisch zu machen...

dim arrFile() as string

arrFile = split(File1.List(cnt), ".")
List1.AddItem arrFile(0)

weil wenn du len blabla -4 sagst und das ne datei wie .mpeg oder .au oder so ist, siehts doof aus.
 
Schon mal das erste Posting gelesen? Da steht, dass die Dateien alle die gleiche und bekannte Extension haben. Außerdem, was machst du mit Split bei "Datei.exe.doc"?


Der Doc!
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück