Search for available drives

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|422\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Search for available drives
Sat, 29 Mar 2008, 15:51
Forklift_Fred	(whoops, sorry about the typo in the title! ) This is related to my file browsing code but I wanted some fresh eyes rather than it just looking like an update. I've added buttons to jump to different drives and it works perfectly within the Blitz IDE (well, I'm using IDEal but you get my point!) but as soon as I try it as an executable I get an error from Windows as it checks drives that exist but don't have a disk (ie DVD and removable media such as Memory Stick, Secure Digital, etc, although the floppy drive is completely skipped over!) Here's how I'm doing it For letters=65 To 90 ; Check all possible drive letters DebugLog "ASCII "+letters+ " : Letter "+Chr$(letters)+" : " If FileType(Chr$(letters)+":\")=2 Then drive.drive=New drive drive\letter$=Chr$(letters) DebugLog "Is a drive" End If Next --v Nice and simple but perhaps a little crude. So is there a way of finding existing drives like there is with GfxModeExists? I'll stretch myself into registry/system checks if someone can guide me gently -=-=- Come rain or shine...
Sat, 29 Mar 2008, 16:00
Jayenkai	So far I've not found a nice easy way to do it.. Depending on it's use, is there any way you could ask the user? Maybe a small little monochrome icon set, bottom right, in a faux "status bar" with little ticks over each available drive..? If you need a few initial clues, CurrentDir() will include the drive the proggie's running from.. DebugLog SystemProperty$("TempDir") DebugLog SystemProperty$("SystemDir") DebugLog SystemProperty$("WindowsDir") DebugLog SystemProperty$("AppDir") --v In fact, those would probably help a little, too.. but only if they're not all in the same place.. .. Which they are on mine, and probably on 99% of users -=-=- ''Load, Next List!''
Sat, 29 Mar 2008, 17:55
Forklift_Fred	Thanks, not sure they're useful on this occasion but I'll bare them in mind. I just hopped over to BB.com and can't believe how quickly I found the answer! (Once I realised that I haven't a clue what my password is anymore so I can't search, I headed into the Code Archives and used FireFox to search the page ) From Klaas, to just identify the drives... wert=CallDLL ("kernel32.dll", "GetLogicalDrives") For i=0 To 25 ShiftedData=wert Shr i BitValue = ShiftedData And 1; If BitValue<>0 Print Chr(65+i)+":\\" EndIf Next WaitKey End --v And from Jim Brown, to get extra info... ; Volume Information ; !! place these in 'Kernel32.decls' !! ; ***************************************** ; GetDriveType%(drivename$):"GetDriveTypeA" ; GetVolumeInformation%(Path$,VolNameBuff,VolLen%,Serial,MaxComponentLen,fsFlags,fsNameBuff,fsNameLen%):"GetVolumeInformationA" ; GetLogicalDriveStrings%(bufflen%,buffer):"GetLogicalDriveStringsA" ; ***************************************** ; volume details are stored here Type volumeinfo Field driveletter$ ; Drives letter "A:\" "C:\" "F:\" Field drivename$ ; Name of device "My Computer" Field drivetype$ ; What type "Floppy" "CD-Rom" Field serial% ; Serial number 1234567890 Field maxcomponentlen% ; long/short name support 8.3 255 Field flags% ; associated flags 012345 Field filesystem$ ; file system used FAT32 NTFS CDFS End Type Global vol.volumeinfo GetVolumeInfo ; fill 'volumeinfo' type with available volumes information Print "Vol Name Type Serial Flags FileSystem" Print "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" For vol=Each volumeinfo r$=vol\driveletter$+" "+Left$(vol\drivename$+String$(" ",19),19) r$=r$+" "+Left$(vol\drivetype$+String$(" ",12),12) r$=r$+" "+Right$(String$(" ",10)+Str$(vol\serial),11)+" " r$=r$+Right$(" "+Str$(vol\flags),6)+" "+vol\filesystem Print r$ Next Print a$=Input$("Done ... RETURN to end") End Function GetVolumeInfo() ; first, get a list of available volumes .. A:\B:\C:\F:\ ... vlist=CreateBank(256) GetLogicalDriveStrings 255,vlist drivelist$=PeekString$(vlist,256) FreeBank vlist ; run through list of voulumes For x=0 To Len(drivelist$)/3-1 vol=New volumeinfo vol\driveletter$=Mid$(drivelist$,x*3+1,3) vol\drivename$="(not available)" Select GetDriveType(vol\driveletter$) Case 2 : vol\drivetype$= "Removable" Case 3 : vol\drivetype$= "Drive Fixed" Case 4 : vol\drivetype$= "Remote" Case 5 : vol\drivetype$= "Cd-Rom" Case 6 : vol\drivetype$= "Ram disk" Default : vol\drivetype$= "Unrecognized" End Select vn=CreateBank(256) : sn=CreateBank(4) mcl=CreateBank(4) : flags=CreateBank(4) : fs=CreateBank(256) GetVolumeInformation vol\driveletter$,vn,255,sn,mcl,flags,fs,255 vol\drivename$=PeekString$(vn,256) If vol\drivename$="" Then vol\drivename$="(not available)" vol\serial=PeekInt(sn,0) vol\maxcomponentlen=PeekInt(mcl,0) vol\flags=PeekInt(flags,0) vol\filesystem=PeekString$(fs,256) ; free the banks FreeBank sn : FreeBank mcl : FreeBank flags FreeBank vn : FreeBank fs Next End Function ; build and return a string of characters from a bank Function PeekString$(bank,numbytes) Local a$="" For pos=0 To numbytes-1 byte=PeekByte(bank,pos) If byte<>0 Then a$=a$+Chr$(byte) Next Return a$ End Function --v I got confused by the decls aspect because I'm not used to it but apart from that it works nicely. (although, for some reason it flagged my C: drive's name as not available!) Sorry to answer my own question but at least I can share it with everyone here -=-=- Come rain or shine...
Sat, 29 Mar 2008, 18:14
Orion Pax	api_EnumResourceNames% (hModule%, lpType$, lpEnumFunc%, lParam%) : "EnumResourceNamesA" api_EnumResourceTypes% (hModule%, lpEnumFunc%, lParam%) : "EnumResourceTypesA" what about these functions in the kernal decals? I seem to remember a decal that contained a function to search for available drives. I did text editor of my own in blitz plus with a userlib and remember a function somewhere for it. \|edit\| Ah nuts... you beat me to it. I knew there was a function for it in kernal32.dll. I just couldnt remember which it was. Now I do.... \|edit\|