Servus,
Ich möchte gerne mehrere verschiedene Pfade angeben können und damit prüfen, ob die Ordner leer sind. (keine Dateien)
Ich habe das Problem ich bekomme einen Runtime Error 13 - Type mismatch.
An dieser Stelle. Meine Vermutung ist das ich eine Vermischung mit Objekt und String gemacht habe.
Ich weiß aber nicht wo ich korrigieren muss und ob das was ich da geschrieben überhaupt so funktionieren kann.
Ich habe schon mit den Deklarationen hin und her probiert und mit dem Debugger ausprobiert um so auf den Fehler
zu kommen aber ich bleibe immer an dem Error hängen.
Kann mir einer von Euch auf Bitte helfen und sagen was falsch ist? Ich hoffe nicht alles.
LG Poeci
Ich möchte gerne mehrere verschiedene Pfade angeben können und damit prüfen, ob die Ordner leer sind. (keine Dateien)
Ich habe das Problem ich bekomme einen Runtime Error 13 - Type mismatch.
An dieser Stelle. Meine Vermutung ist das ich eine Vermischung mit Objekt und String gemacht habe.
Ich weiß aber nicht wo ich korrigieren muss und ob das was ich da geschrieben überhaupt so funktionieren kann.
Ich habe schon mit den Deklarationen hin und her probiert und mit dem Debugger ausprobiert um so auf den Fehler
zu kommen aber ich bleibe immer an dem Error hängen.
Quellcode
-
- Public Sub Ordnerleer()
- Dim oFSO As Object
- Dim Var1 As String
- Dim Var2 As String
- Dim Var3 As String
- Dim Var4 As String
- Dim Pfade As Variant
- Dim z As Integer
- Dim oSourceFolder As Object
- Dim Pfad
- Var1 = "D:\"
- Var2 = "E:\"
- Var3 = "E:\Test\Test"
- Var4 = "\\Daten\"
- Pfade = Array(Var1, Var2, Var3, Var4)
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Set oSourceFolder = oFSO.GetFolder(Pfade)
- For Each Pfad In Pfade
- 'Wenn keine Dateien vorhanden
- z = oSourceFolder.Files.Count
- If z = 0 Then
- MsgBox "Keine Dateien"
- End If
- Next
- Set oFSO = Nothing
- End Sub
Kann mir einer von Euch auf Bitte helfen und sagen was falsch ist? Ich hoffe nicht alles.
LG Poeci