1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| ** Author:Cetin Basoz
** List available drives and their type
Declare Integer GetLogicalDrives In win32API
Declare Integer GetDriveType In WIN32API String @cDrvLetter
Local Array aDrvTypes[7]
aDrvTypes[1]="CANNOT_DETERMINE"
aDrvTypes[2]="INVALID_DRIVE"
aDrvTypes[3]="DRIVE_REMOVABLE"
aDrvTypes[4]="DRIVE_FIXED"
aDrvTypes[5]="DRIVE_REMOTE"
aDrvTypes[6]="DRIVE_CDROM"
aDrvTypes[7]="DRIVE_RAMDISK"
lnDrivesMask = GetLogicalDrives()
If m.lnDrivesMask # 0
For ix = 0 To 31
If Bittest(m.lnDrivesMask,ix)
lcDrive = Chr(Asc('A')+m.ix)+":\"
? m.lcDrive, aDrvTypes[GetDriveType(m.lcDrive)+1]
Endif
Endfor
Endif |