Office: Makro soll entscheiden, ob Datei vorhanden

Ich brauche für ein Makro eine Abfrage die kontrolliert, ob im Verzeichnis C:\Daten eine bestimmte Exceldatei existiert - oder nicht. Wie kann ich das machen?



Bernd

 

Hallo Bernd,

Code:

Option Explicit

Sub Vorhanden_Datei()
    ' Fehler falls LW nicht vorhanden
    If Dir(ThisWorkbook.Path & "\Almanach.xls", vbNormal) = "" Then
        MsgBox "nicht vorhanden"
    Else
        MsgBox "vorhanden"
    End If
End Sub

Sub Datei_vorhanden()
    ' von Berti Koern
    Dim Fso As Object, Dateiname As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Dateiname = "L:\Eigene Dateien\Hajo\Adresse.xls"
    ' Ergänzung öffnung Hajo
    If Fso.FileExists(Dateiname) Then
        Workbooks.Open Dateiname
    End If
    Set Fso = Nothing
End Sub

Sub Vorhanden_Phad()
    ' Fehler falls LW nicht vorhanden
    If Dir("C:\Eigene Dateien\", vbDirectory) <> "" Then
        MsgBox "vorhanden"
    Else
        MkDir "L:\Eigene Dateien\"
        MsgBox "nicht vorhanden"
    End If
End Sub

Sub Ordner_vorhanden()
    ' von Berti Koern
    Dim Fso As Object, Ordnername As String
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Ordnername = "C:\Eigene Dateien\"
    ' MsgBox Fso.FolderExists(Ordnername)
    If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
    Set Fso = Nothing
End Sub

Gruß Hajo