title image


Smiley Re: Alle Dateinamen von der CD lesen
Nimm am besten FileObjectsystem !Dim fil As File, fld As Folder Set fld = fso.GetFolder("H:\") ' Laufwerk der cd angeben z.B. "H:\" Anzahl = fld.Files.Count On Error Resume Next 'falls keine Diskette in A: For Each fil In fso.GetFolder("H:\").Files DoEvents If Right$(fil.Name, 4) = ".mp3" Then IDv1 frmDsatz.b1 & fil.Name, False, True End If Nextsetze unter Projekt/verweise das FileObjektsystem

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: