Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

fs - system (filesearch)

fs - system (filesearch)
07.01.2008 15:27:24
Thorsten
Hallo, ihr fleißigen Helfer,
ich habe da mal ein Problem:
Ich möchte per VBA nachsehen, ob sich in einem bestimmten Laufwerk (hier K:) Ordner oder Dateien befinden. Das mit den Dateien habe ich ja schon soweit (Siehe unten) , aber an den Ordner scheitere ich noch. Kann mir einer von Euch weiterhelfen?
Vorab schon mal Besten Dank für Eure Bemühungen.
MFG Thorsten
Set fs = Application.FileSearch
With fs
.LookIn = "k:\"
.Filename = "*.*"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then
MsgBox "Es wurden " & .FoundFiles.Count & _
" Datei (en) gefunden."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "K: ist leer"
End If
End With

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

Betreff
Datum
Anwender
Anzeige
AW: fs - system (filesearch)
07.01.2008 15:36:00
Thomas
Hallo,
schon mal mit FolderExists probiert?
Gruß

AW: fs - system (filesearch)
07.01.2008 15:42:56
Thomas

Set fs = CreateObject("Scripting.FileSystemObject")
MsgBox "Ordner " & IIf(fs.FolderExists("K:\"), "", "nicht ") & "vorhanden!"


AW: fs - system (filesearch)
08.01.2008 08:38:00
Thorsten
Danke, so klappt's
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige