Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Getting drive name 1
- Thread starter beedubau
- Start date
-
1
- #2
This does not return the name for Floppies, CD's, DVD's or items connected to the Computers HDD controller.
It might work for USB drives
close all
ERASE DRIVES.DBF
SELECT 0
CREATE TABLE ("DRIVES.DBF") (LETTER c(1), LABEL c(15))
FOR I = 65 TO 90
lnType = DRIVETYPE(CHR(i)+":")
IF lnType<>1
=ADIR(laFiles , chr(i)+":" , "DV")
APPEND BLANK
replace LETTER WITH CHR(i)
replace LABEL WITH laFiles(1)
ENDIF
ENDFOR
BROWSE
David W. Grewe Dave
It might work for USB drives
close all
ERASE DRIVES.DBF
SELECT 0
CREATE TABLE ("DRIVES.DBF") (LETTER c(1), LABEL c(15))
FOR I = 65 TO 90
lnType = DRIVETYPE(CHR(i)+":")
IF lnType<>1
=ADIR(laFiles , chr(i)+":" , "DV")
APPEND BLANK
replace LETTER WITH CHR(i)
replace LABEL WITH laFiles(1)
ENDIF
ENDFOR
BROWSE
David W. Grewe Dave
Olaf Doschke
Programmer
Hi Dave,
it works for me, for every HDD or USB device I have given a Volume name. Nice, I did never use the V=Volume cAttribute of ADIR(). My C: drive is listed as "Local Drive (C
", but it's volume name is empty, so it's okay, that ADIR() doesn't return that name.
Bye, Olaf.
it works for me, for every HDD or USB device I have given a Volume name. Nice, I did never use the V=Volume cAttribute of ADIR(). My C: drive is listed as "Local Drive (C
", but it's volume name is empty, so it's okay, that ADIR() doesn't return that name.Bye, Olaf.
Olaf Doschke
Programmer
I don't doubt the V attribute was there almost always, I just didn't used it.
Bye, Olaf.
Bye, Olaf.
You can also use the WinAPI WScript
*Variable pcDrive must be in the format "C:"
LPARAMETER pcDrive
STORE '' TO lcRetVal
DO CASE
CASE PARAMETERS()<1 OR VARTYPE(pcDrive)<>"C" OR EMPTY(pcDrive) OR LEN(pcDrive)<>2
CASE AT(":",pcDrive,1)<>2
OTHERWISE
LOCAL WshNetWork AS OBJECT
LOCAL oDrives AS OBJECT
WshNetWork=CREATEOBJECT("WScript.Network")
oDrives=WshNetWork.EnumNetworkDrives &&NOTE: This array is 0 based
FOR i=0 TO oDrives.COUNT-1 STEP 2
IF ALLTRIM(UPPER(oDrives.ITEM)) = pcDrive
lcRetVal=ADDBS(oDrives.ITEM[i+1])
EXIT
ENDIF
ENDFOR
ENDCASE
RETURN lcRetVal
David W. Grewe Dave
*Variable pcDrive must be in the format "C:"
LPARAMETER pcDrive
STORE '' TO lcRetVal
DO CASE
CASE PARAMETERS()<1 OR VARTYPE(pcDrive)<>"C" OR EMPTY(pcDrive) OR LEN(pcDrive)<>2
CASE AT(":",pcDrive,1)<>2
OTHERWISE
LOCAL WshNetWork AS OBJECT
LOCAL oDrives AS OBJECT
WshNetWork=CREATEOBJECT("WScript.Network")
oDrives=WshNetWork.EnumNetworkDrives &&NOTE: This array is 0 based
FOR i=0 TO oDrives.COUNT-1 STEP 2
IF ALLTRIM(UPPER(oDrives.ITEM)) = pcDrive
lcRetVal=ADDBS(oDrives.ITEM[i+1])
EXIT
ENDIF
ENDFOR
ENDCASE
RETURN lcRetVal
David W. Grewe Dave
- Thread starter
- #7
HI Dave,
I've implemented what I wanted with your first example - thank you - I could only get two drives ( the last on the list )with the second example.
I found
on a page.
I wondered why you had COUNT-1 STEP 2.
The enumeration appeared not to work correctly on my PC.
Thanks
Bryan
I've implemented what I wanted with your first example - thank you - I could only get two drives ( the last on the list )with the second example.
I found
Code:
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1
WScript.Echo clDrives.Item(i)
Nexton a page.
I wondered why you had COUNT-1 STEP 2.
The enumeration appeared not to work correctly on my PC.
Thanks
Bryan
VFP arrays by Default Start at 1.
The WScript array starts at 0.
So you have to look one element behind (or start i=-1).
The STEP 2 because the array is not a 2 dimensional but one.
Element 0 = Drive letter
Element 1 = Volume Name
Element 2 = Drive Letter
Element 3 = Volume NAme
Etc.
David W. Grewe Dave
The WScript array starts at 0.
So you have to look one element behind (or start i=-1).
The STEP 2 because the array is not a 2 dimensional but one.
Element 0 = Drive letter
Element 1 = Volume Name
Element 2 = Drive Letter
Element 3 = Volume NAme
Etc.
David W. Grewe Dave
- Status
Similar threads
