Laufzeitfehler 91 ohne weitere Info

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.