title image


Smiley Re: Alle verzeicnisse ermitteln...
Hallo,das sollte funzen:Dim strFile as StringstrFile = Dir("C:\temp\*.*", vbDirectory) Do Until strFile = ""If GetAttr("C:\temp\" + strFile) = vbDirectory Then Debug.Print strFilestrFile = Dir()Loop

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: