XProfan

Español

Georg
Hovenbitzer

¡Hola Sebastian,

folgender Code funktioniert por desgracia, no después de el Übersetzen, lo se kein Directorio creado !
Getestet Yo lo con el Profano2Cpp Versión 1.5.9f-pre1.
Kompilieren Marca Separación

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

WhileNot %Key = 2

    WaitInput

EndWhile

KompilierenMarcaSeparaciónDef CreateDirectory(2) !"kernel32.dll","CreateDirectoryA"
Declarar Makepfad$
Declarar Pfad#
Cls
Selección aleatoria
MakePfad$ = $TempDir + "\" + @Str$(@Rnd(1000))
Dim Pfad#,(@Len(MakePfad$) + 1)
Claro Pfad#
String Pfad#,0 = MakePfad$
CreateDirectory(Pfad#,0)
Disponer Pfad#

Sinestar encargado %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 Cita Zeilenweise Cita

Sebastian
König

¡Hola Georg,

Yo lo gerade getestet - en me funktioniert auch el erste Code: el Verzeichnisse voluntad ordnungsgemäß erstellt... Aunque Yo una Concepto, wo evtl. el problema mentira puede: $TempDir ha ya una Backslash al Ende, sodass lo con el + \ entonces zwei son - es el evtl . en manchen Systemen una Problema?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

30.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Hovenbitzer

¡Hola Sebastian,

y yo pensamiento Yo hätte todavía algo para dich

Usted hast bastante, en el MKDir Variante muss uno el weglassen, entonces klappt lo auch después de el Übersetzen.

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

30.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

Ok, super!

Trotzdem seltsam, dass lo en me trotz Doppel-Backslash funktioniert... Tal vez Yo después de 1.5.9f todavía algo a el MkDir-Implementierung geändert - Yo bin me ahora nada mehr sicher...