Option Explicit - Fehlermeldung
12.03.2009 11:25:46
herbi
habe ein HauptMakro Speichern(). Darin wird eine Exceltabelle analysiert und aufbereitet.
am Ende des Makros rufe ich ein Untermakro Reg_Lesen() auf, welches aus der Registry den Pfad \Eigene Dateien ausliest und in der Variablen sPath speichert.
Das HauptMakro wiederum speichert anschl. die Datei unter sPath.
Soweit sogut - funktioniert.
Jetzt wollte ich im HauptMakro, direkt nach dem Untermakro Reg_Lesen ein weiteres Untermakro MakeDir() aufrufen, welches unter sPath einmalig ein Verzeichnis \X anlegt, falls es dort nicht vorhanden ist.
Hier der Code von MakeDir()
Option Explicit
Private Declare
Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Sub MakeDir()
MakeSureDirectoryPathExists sPath & "X"
End Sub
Leider sagt mir MakeDir, dass er die variable sPath nicht kennt weil sie nicht deklariert wurde.
wie mache ich das?
danke für eure Hilfe
Herbi
Anzeige