XProfan

Deutsch

Georg
Hovenbitzer

Hallo Sebastian,

folgender Code funktioniert leider nicht nach dem Übersetzen, es wird kein Verzeichnis angelegt !
Getestet habe ich es mit der Profan2Cpp Version 1.5.9f-pre1.
Kompilieren Markieren Separieren

Declare Makepfad$
Cls
Randomize
MakePfad$ = $TempDir + "\" + @Str$(@Rnd(1000))
MkDir MakePfad$

WhileNot %Key = 2

    WaitInput

EndWhile

End

Dieser Code läuft nach dem Übersetzen:
Kompilieren Markieren Separieren

Def CreateDirectory(2) !"kernel32.dll","CreateDirectoryA"
Declare Makepfad$
Declare Pfad#
Cls
Randomize
MakePfad$ = $TempDir + "\" + @Str$(@Rnd(1000))
Dim Pfad#,(@Len(MakePfad$) + 1)
Clear Pfad#
String Pfad#,0 = MakePfad$
CreateDirectory(Pfad#,0)
Dispose Pfad#

WhileNot %Key = 2

    WaitInput

EndWhile

End

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

30.11.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Sebastian
König

Hallo Georg,

ich habe es gerade getestet - bei mir funktioniert auch der erste Code: die Verzeichnisse werden ordnungsgemäß erstellt... Allerdings habe ich eine Idee, wo evtl. das Problem liegen können: $TempDir hat schon einen Backslash am Ende, sodass es mit dem + \ dann zwei sind - ist das evtl . auf manchen Systemen ein Problem?

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

30.11.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg
Hovenbitzer

Hallo Sebastian,

und ich dachte ich hätte noch etwas für dich

Du hast recht, in der MKDir Variante muss man den weglassen, dann klappt es auch nach dem Übersetzen.

Viele Grüsse, Georg Hovenbitzer(Windows XP Pro, XProfan 11.2, Profan2Cpp 1.6a)

30.11.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Sebastian
König

Ok, super!

Trotzdem seltsam, dass es bei mir trotz Doppel-Backslash funktioniert... Vielleicht habe ich nach 1.5.9f noch etwas an der MkDir-Implementierung geändert - ich bin mir jetzt gar nicht mehr sicher...