Hallo,
Ich erhalte im meinem Code den Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Code:
Public Sub Ordner_erstellen()
'Diese Modul erstellt Ordner
Dim fso As Object
Dim VarNr As String
Dim Vartext As String
Dim Verzeichnis As String
Dim Ordner As String
VarNr = thisProject.Variables.Item("PraegeNr").Value
Vartext = Format(CStr(VarNr), "00000000000")
'Exportpfad
Verzeichnis = "D:S7_ExportAppData" ' Pfad einstellen
Ordner = Vartext
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Verzeichnis) Then
If Not fso.FolderExists(Verzeichnis & "" & Ordner) Then
fso.CreateFolder (Verzeichnis & "" & Ordner)
End If
End If
End Sub
Es wird aber nichts markiert. Somit weiß ich nicht wo der Fehler liegt und was ich tun kann.
Hat jemand von Euch eine Idee woran das liegt?
Mfg Tommylik