| |
| |
|
 |
Beschreibung:
GetLogicalDriveStrings ermittelt die Rootverzeichnisse aller im System vorhandenen Laufwerke.
Deklaration:
Def @GetLogicalDriveStrings(2) !KERNEL32,GetLogicalDriveStringsA
Parameter:
 1.Parameter: Die maximale Anzahl der Buchstaben in Parameter 2 (ohne abschließendes Nullbyte).
2.Parameter: Bereichsvariable, die die vorhandenen Laufwerke in Folgender Form aufnimmt:
a: Nullbyte b: Nullbyte c: Nullbyte d: ….. Nullbyte Nullbyte
Rückgabewert:
0 bei Fehler, ansonsten die Anzahl der Buchstaben, die in die Bereichsvariable geschrieben wurden.
Beispiele:
KompilierenMarkierenSeparierenDef @GetLogicalDriveStrings(2) !"KERNEL32","GetLogicalDriveStringsA"
Declare Drives#,I%,D$
Dim Drives#,120
@GetLogicalDriveStrings(119,Drives#)
String DRIVES#,0=@Translate$(@CHAR$(Drives#,0,119),@CHR$(0),",")
LET I%=1
While @SubStr$(@String$(Drives#,0),I%,",")<>""
Let d$=@SubStr$(@String$(Drives#,0),I%,",")
ADDSTRING d$
inc I%
wend
Dispose Drives#
@ListBox$("Laufwerke",2)
[keywords:1d44e4bde1]
Laufwerke Festplatte auflisten listen Laufwerksliste erstellen
[/keywords:1d44e4bde1] |
|
| |
| |
| |
|
(918)
Deutsch
English
Français
Español
Italia