Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfe ob Datei im Pfad vorhanden.

Forumthread: Prüfe ob Datei im Pfad vorhanden.

Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:16:18
Eisi
Hallo zusammen,
mit diesem Code bekomme ich die Meldung, dass die Datei nicht vorhanden ist. Sie ist aber in dem aktuellen Pfad vorhanden.
Was ist an diesem Code falsch?
Danke für die Hilfe.
VG Eisi :-)
Dim strPath As String
Dim strDateiname As String
strPath = ActiveWorkbook.Path
strDateiname = strPath & "\AlleAngebote.xlsm"
If (strDateiname) "" Then
MsgBox "Datei ** AlleAngebote.xlsm ** wurde nicht gefunden." & vbNewLine & "Bitte diese Datei in Dein aktuelles Verzeichnis kopieren." & vbNewLine & "Danke."
Exit Sub
End If
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:18:57
Nepumuk
Hallo,
so:

If Dir$(strDateiname) = "" Then
Gruß
Nepumuk
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 15:22:36
Eisi
Klasse Nepumuk, herzlichen Dank :-)
GLG Eisi :-)
AW: Prüfe ob Datei im Pfad vorhanden.
18.05.2021 16:11:54
Peter
Genauer noch als Funktion wie diese:
  • 
    Function FileExists(ByVal Filename As String) As Boolean
    'TRUE, wenn File existiert
    'Achtung: Immer FALSE, wenn >= 260 Zeichen!
    On Error GoTo ErrEx
    FileExists = (GetAttr(Filename) And vbDirectory)  vbDirectory
    Exit Function
    ErrEx:
    FileExists = False
    End Function
    

  • Anzeige
    AW: Prüfe ob Datei im Pfad vorhanden.
    18.05.2021 16:21:52
    Eisi
    Danke Peter, habe ich mir für spätere Lösungen abgespeichert.
    Vielen Dank.
    VG Eisi :-)
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige