Aktuelles Directory Ermitteln!

[al90]

Code: Alles auswählen

; Ermittelt das Aktuell gesetzte Verzeichnis!

Procedure.s GetCurrentDir()
buflen=#MAX_PATH
a$=Space(buflen)
l=GetCurrentDirectory_(buflen,@a$)
d$=PeekS(@a$,l)
If Right(d$,1)<>"\":d$+"\":EndIf
ProcedureReturn d$
EndProcedure

currentdir$=GetCurrentDir()
Debug currentdir$

[Hroudtwolf]

Warum hast du den Stringbuffer auf 2 KB gesetzt? Das ist viel zu hoch.
250-300 sollten reichen.

[al90]

Nur zur sicherheit. Klar, ist normalerweise viel zu hoch aber 2KB haben
selbst die ältesten Rechner der Welt noch.

[ts-soft]

Dafür gibts aber #MAX_PATH (sind 260)

[al90]

Na gut ich werd's bei zeiten anpassen bevor man mich noch lyncht.

[ts-soft]

Ich habs mal ein bissel um unnötige Umwandlungen gekürzt, ich hoffe Du bist nicht böse, ist ja nur zum lernen:

Code: Alles auswählen

; Ermittelt das Aktuell gesetzte Verzeichnis!

Procedure.s GetCurrentDir()
buflen=#MAX_PATH
a$=Space(buflen)
GetCurrentDirectory_(buflen,@a$)
If Right(a$,1)<>"\":a$+"\":EndIf
ProcedureReturn a$
EndProcedure

currentdir$=GetCurrentDir()
Debug currentdir$

[al90]

Nö kein problem, hab's ja eh als PD freigegeben.

[Agent]

Hey al90.

Warum erfindest du das Rad neu? All die Proceduren die Du zuletzt gepostet hast gibts alle schon....Wer sucht der findet. Z.t. auch im Codearchiv...

[ts-soft]

Und wenn Du die größe des erforderlichen Buffers nicht kennst, kann man diesen oft ermitteln und zwar mit derselben Funktion, durch Übergabe von #NULL

Code: Alles auswählen

Procedure.s GetCurrentDir()
  buflen=GetCurrentDirectory_(#Null,@a$); ermitteln des erforderlichen Buffers, deswegen #NULL
  a$=Space(buflen)
  GetCurrentDirectory_(buflen,@a$); zweiter Aufruf mit erforderlich Buffer
  If Right(a$,1)<>"\":a$+"\":EndIf
  ProcedureReturn a$
EndProcedure

currentdir$=GetCurrentDir()
Debug currentdir$

[al90]

Hey al90.

All die Proceduren die Du zuletzt gepostet hast gibts alle schon....Wer sucht der findet. Z.t. auch im Codearchiv...

Bist Du dir da sicher ?