VB Datei existenz

Computer: Software & Programmierung Visual Basic
1

Hi Leute,

ich hab mal wieder ein kleines Problem.
Bei MSDN finde ich nur die Hilfe
Objekt.FileExists(Dateispez)
um herauszufinden ob es die Datei wirklich gibt.
Das will bei mir aber nicht so richtig funktionieren.
KAnn mir einer helfen, bzw. eine andere Möglichkeit nennen.

Ich will mir ne Funktion machen die unter anderem auch die existenz der Datei prüfen soll.

Danke

Matze

2

eine Möglichkeit:

Function filexist(pFileNam)
 ' Ermittlung, ob eine Datei mit dem übergebenen Namen existiert
 Dim sfound As String, ifound As Integer
 ' Versteckte und System-Dateien werden prinzipiell berücksichtigt!
 sfound = Dir$(pFileNam, 6)
 If sfound = "" Then
 ifound = False
 Else
 ifound = True
 End If
 filexist = ifound
End Function
3

Dazu musst du als erstes unter Projekt/Verweise alle Scriptingbibliotheken aktivieren (müsste irgendwas mit Microsoft Scripting usw. sein)
dann kannst du die erwähnte FileExists Funktion wie folgt nutzen:

_Dim fsys As New FileSystemObject

Sub Form_Load()
If fsys.FileExists(„C:\da.tei“) = True Then
MsgBox „Datei gefunden!“, vbInformation, „Beispiel“
End If
End Sub_

Ich hoffe ich konnte helfen
WIPLmatze

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hi,

also fuer so eine „kleine“ Sache wuerde ich nicht gleich die Scripting-Runtime mit meinem Porjekt verlinken wollen, deshalb hier meine Funktion um auf die Existenz einer Datei zu prüfen:

function fileexists(path as string) as boolean

on error goto aborts

dim intfilenr as integer

fileexists=true
intfilenr=freefile

open path for input as #intfilenr
close #intfilenr
exit function

aborts:

fileexists=false
resume next

end function

Gruss

Oliver

5

Eine weiter (kurze) Lösung für dein Problem:

 If Dir$("c:\autoexec.bat") "" Then 
 MsgBox ("The file exist")
 Else
 MsgBox ("The file does not exist")
 End If

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]