Hallo,
ich suche eine simple Möglichkeit mit "IF" zu prüfen, ob eine bestimmte Datei auf c:\programme\... vorhanden ist.
Leider bin ich zu doof was passendes in der Hilfe oder im Netz zu finden.
danke
gruß Christoph
Hallo Christoph,
die Funktion DIR sollte DIR helfen ;)
If Len(Dir("C:\Aktuell\Brief.txt")) <> 0 Then
MsgBox "Vorhanden"
Else
MsgBox "Nix da"
End If
Gruß Oma
Hallo Christoph,
das Zauberwort heißt "FileSystemObject", mit Goggle findest Du massig Anleitungen.
Du mußt in Extras -> Verweise die Microsoft Office <12.0> Object Library einbinden, um diese benutzen zu können.
Kleines Beispiel:
Dim myFSO As Object
Dim strDatei As String
strDatei = "C:\ABC.TXT"
Set myFSO = CreateObject("Scripting.FileSystemObject")
Dim bolFileExists As Boolean
bolFileExists = myFSO.FileExists(strDatei)
MsgBox bolFileExists
if bolFileExists = true then
msgbox "Datei ist vorhanden"
else
msgbox "Datei ist nicht vorhanden"
end if
http://www.access-paradies.de/tipps/existiert_datei.php (http://www.access-paradies.de/tipps/existiert_datei.php)
http://www.vbarchiv.net/workshop/details.php?id=40 (http://www.vbarchiv.net/workshop/details.php?id=40)
Ich hoffe das hilft für den Einstieg
Johannes
Hallo Christoph,
hier eine kleine Routine:
' Dateiname ermitteln
Pfad = "C:\Prüfberichte\"
Dateiname = ZwKdnr & "P" & Format(Year(Date), "0000") & Format(NrGefunden, "000") & ".xlsb"
' Prüfen ob Datei vorhanden
Vorhanden = Dir(Pfad & Dateiname)
If Vorhanden <> "" Then
MsgBox ("Dieses Projekt ist bereits vorhanden, Abbruch")
Exit Sub
End If
Das Feld Dateiname wird hier zusammengesetzt während der Pfad konstant ist.
Kannst ja mit nur ein Feld arbeiten.
Gruß
Jonny