Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Vorhandensein von Files prüfen

Vorhandensein von Files prüfen
20.03.2006 14:03:21
Files
hi there
ich sollte wissen, wie ich das vorhandensein von files prüfen kann. Es handelt sich dabei nicht um Excel-Files (*.dtxt-files).
Weiss da jemand rat?
besten dank
heini
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit der Function Dir (siehe Hilfe) o.w.t.
20.03.2006 14:05:28
Peter
MfG Peter
Beispiel
20.03.2006 14:33:02
Peter
Servus,


Option Explicit
Public Function CheckFiles(FileArr() As String, _
                Optional Pfad As String)
                Dim myArr() As Boolean
                Dim lngZ As Long
    If Pfad = "" Then Pfad = ThisWorkbook.Path & "\"
    If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
    ReDim myArr(0 To UBound(FileArr))
    For lngZ = 0 To UBound(FileArr)
        If Dir(Pfad & FileArr(lngZ)) <> "" Then
            myArr(lngZ) = True
        Else: myArr(lngZ) = False: End If
    Next
    CheckFiles = myArr
End Function
Sub test()
Dim strArr(0 To 2) As String, bolArr() As Boolean
Dim intZ As Integer
For intZ = 1 To 3
    strArr(intZ - 1) = Sheets("Tabelle1").Range("A" & intZ)
Next
bolArr = CheckFiles(strArr(), "C:\")
For intZ = 0 To UBound(bolArr, 1)
    MsgBox "Die Datei " & strArr(intZ) & " ist im Pfad C:\ " _
        & IIf(bolArr(intZ), "vorhanden !", "nicht vorhanden !")
Next
End Sub


MfG Peter
Anzeige
Datei vorhanden?
20.03.2006 19:20:47
Beate
Hallo Heini,
Guckst Du: Datei vorhanden ?
Den Code kannst du auf *.txt-Datei anpassen.
Gruß,
Beate
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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