PureBoard

Verfasst: **29.08.2005 22:52**


; 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$

Verfasst: **29.08.2005 22:55**

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

Verfasst: **29.08.2005 23:03**

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

Verfasst: **29.08.2005 23:15**

Dafür gibts aber #MAX_PATH

(sind 260)

Verfasst: **29.08.2005 23:24**

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

Verfasst: **29.08.2005 23:35**

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$

Verfasst: **30.08.2005 00:02**

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

Verfasst: **30.08.2005 10:00**

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...

Verfasst: **30.08.2005 10:03**

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$

Verfasst: **30.08.2005 20:42**

Agent hat geschrieben: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 ?

PureBoard

Aktuelles Directory Ermitteln!

Aktuelles Directory Ermitteln!