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
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
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]
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
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]