XProfan

Français

Beschreibung:

Searchpath cherchez im angegebenen Verzeichnis pour einer Dossier et gibt zurück, si cet là vorhanden ist. avec Searchpath peut sich qui Dateiname aus einer Pfad + Dateiname-Kombination extrahieren.

Deklaration:

DEF SearchPath(6) !KERNEL32,SearchPathA

paramètre:

1.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den trop durchsuchenden Pfad contient. Es volonté aucun Unterverzeichnisse durchsucht. Ist cette paramètre 0, wird dans folgenden Verzeichnissen gesucht: =>
-Im Verzeichnis, aus dem cela Programme geladen wurde.
-Im aktuellen Verzeichnis.
-Im Windows Systemverzeichnis.
-chez NT im 16 BIT Systemverzeichnis.
-Im Windowsverzeichnis.
-dans den Verzeichnissen, qui sous qui Umgebungsvariable PATH aufgeführt sommes.

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui den Dateinamen (sans Erweiterung) contient.

3.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui qui Erweiterung qui Dossier (avec Punkt) contient.

4.paramètre: Taille qui Bereichsvariablen aus paramètre 5 (dans Buchstaben).

5.paramètre: Bereichvariable, qui den gefundenen Pfadnamen plus den Dateinamen empfängt.

6.paramètre: Bereichsvariable, qui qui Adresse des Dateinamens dedans des dans paramètre 5 zurückgegebenen Cordes empfängt.

Rückgabewert:

0 chez Misserfolg. chez Erfolg qui Longueur des Cordes dans paramètre 5 sans abschließendes Nullbyte.

Beispiele:

Kompilieren Marque Séparation

Déclarer Searchpath$,Filename$,Extension$,Size&,Buffer#,Pointer#,Fehler&,Point&
DEF SearchPath(6) !"KERNEL32","SearchPathA"
LET Searchpath$=$WINPATH
LET Filename$="NOTEPAD"
LET Extension$=".EXE"
Size&=255
DIM Buffer#,260
DIM Pointer#,4
Claire Buffer#
Claire Pointer#
Fehler&=@Searchpath(0,@addr(Filename$),@addr(Extension$),Size&,Buffer#,Pointer#)
Fehler&=@Searchpath(@addr(Searchpath$),@addr(Filename$),@addr(Extension$),Size&,Buffer#,Pointer#)
PRINT "Länge des Cordes: "+@STR$(FEHLER&)
PRINT "Gefundene Dossier: "+@String$(Buffer#,0)
Imprimer "Adresse des Dateinamens: "+@str$(@Long(Pointer#,0))
LET POINT&=Buffer#
LET POINT&=@LONG(Pointer#,0)-POINT&
Imprimer "Hier beginnt qui Dateiname: "+@STR$(POINT&)
Imprimer "Dateiname sans Pfad: "+@String$(Buffer#,Point&)
Dispose Buffer#
Dispose Pointer#
waitkey