title image


Smiley Re: Daten aus auswählbarer Datei einlesen
Hi,



mit dem Dir-Befehl, etwas so:



Pfad1 = "c:\" ' Pfad setzen.

Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen.

Do While Name1 "" ' Schleife beginnen.

' Aktuelles und übergeordnetes Verzeichnis ignorieren.

If Name1 "." And Name1 ".." Then

' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein

' Verzeichnis ist.

If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then

Debug.Print Name1 ' Eintrag nur anzeigen, wenn es sich

End If ' um ein Verzeichnis handelt.

End If

Name1 = Dir ' Nächsten Eintrag abrufen.

Loop



Gruß Micha
Micha

CLP Domino R5/R6 App. Developer

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: