einfach nur Abfrage ob Datei vorhanden ist

[cyberchris]

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

[oma]

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

[Wurliwurm]

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.vbarchiv.net/workshop/details.php?id=40

Ich hoffe das hilft für den Einstieg
Johannes

[Jonny]

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