Laufzeitfehler 91 ohne weitere Info
Hallo,
Ich erhalte im meinem Code den Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
[/FONT]
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
[/FONT]
[/FONT]
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
This is a migrated post! Originally posted on 29.04.2020 by user Tommylik. Please be aware that information can be outdated.