XProfan

English

Georg
Hovenbitzer

Hello Sebastian,

following code functions unfortunately not to the Übersetzen, it'll no directory laid out !
Getestet have I it with the Profan2Cpp Version 1.5.9f-pre1.
Compile Mark Separation

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

WhileNot %Key = 2

    WaitInput

EndWhile

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

WhileNot %Key = 2

    WaitInput

EndWhile

End

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

11/30/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

Hello Georg,

I have it straight tested - by me functions too the first code: The directories go ordnungsgemäß prepares... though have I a idea, where evtl. the trouble lying can: $TempDir has already a Backslash end, so it with the + \ then two are - is the evtl . on manchen Systemen a problem?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

11/30/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Hovenbitzer

Hello Sebastian,

what about me I thought had yet something for you

you have right, in the MKDir Variante must one whom omit, then works it too to the Übersetzen.

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

11/30/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sebastian
König

OK, super!

nevertheless strange, that it by me withal semidetached-Backslash functions... Perhaps have I to 1.5.9f yet something on the MkDir-Implementierung changed - i'm me now none More sure...