DiskChange Function |
Namespace: XSharp.Core
FUNCTION DiskChange( pszDrive AS STRING ) AS LOGIC
public static bool DiskChange( string pszDrive )
1IF DiskChange("D:") 2 ? "Successfully changed" 3ELSE 4 ? "Not changed" 5ENDIF
1FUNCTION AllDrives() 2 LOCAL wI AS DWORD 3 LOCAL cDrives AS STRING 4 cDrives := NULL_STRING 5 FOR wI := 1 UPTO 27 6 IF DiskChange(Chr(wI +64)) 7 cDrives := cDrives + Chr(wI+64) 8 ENDIF 9 NEXT 10 RETURN cDrives