title image


Smiley Wenn Träume Wahrheit werden




Public Function FileIsFree(strFileName As String) As Boolean

Dim lngFile As Long

On Error Resume Next

lngFile = FreeFile()

Open strFileName For Random Access Read Lock Read Write As #lngFile

FileIsFree = (Err.Number = 0)

Close #lngFile

End Function





Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: