HomeArchivVB EckeBeispiel CodePrüfen ob eine Datei existiert

Prüfen ob eine Datei existiert

Function fileexists(ByVal path As String) As boolean
Dim x As Long
x = FreeFile

On Error Resume Next
Open path$ For Input As x
If Err = 0 Then
fileexists = True
Else
fileexists = False
End If
Close x

End Function

 

Anzeige

kkhconsulting

Web Service

Web ServiceWir gestalten Ihre Internetseiten lebendig, kreativ, innovativ und mediengerecht auf Ihre bevorzugte Zielgruppe abgestimmt.

EDV Service

Web ServiceEgal ob Sie eine spezielle Softwarelösung fürs Desktop, eine Lösung fürs Internet oder eine Beratung für die IT Ausstattung Ihres Unternehmens benötigen, wir helfen Ihnen weiter.

EDV Schulungen

Web ServiceEDV Schulungen sind heute notwendiger denn je, da die Computertechnik und ihre Anwendungsprogramme selbst bis in jeden Handwerksberuf Einzug gefunden haben.

Zum Anfang