title image


Smiley Im Gegensatz zum Beitrag vom Hoschie gibt es tatsächlich eine ...
Möglichkeit.



FoundFileName = "c:\Eigene Dateien\Null.txt"

verLen& = Filelen(FoundFileName)

If Filelen = 0 then

' beende deinen Agent, Subroutine oder was auch immer

End if



ACHTUNG: Das solltest du aber nicht im Zusammenhang mit Openfiledialog zur Auswahl der Datei versuchen.

Da wirds nämlich ganz interessant.

Sobald du da ein File mit Länge null auswählst, gibt es beim FileLen einen Fehler weil die Datei nicht mehr vorhanden ist. Scheint er beim Openfiledialog zu löschen das Teil, zumindest ist es hinterher im Explorer nicht mehr vorhanden.



*Offtopic* Hee das ist mein zweiter Bug in diesem Jahr, zumindest in den Versionen 5.010 und V6.01



Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: