Get only drive letters

[lashwarj]

HOw do i instead of getting directorys , just get the drives
I have a tree listing app but need to have only drive letters for a porton of it. Below is my code

LOCAL drivesave
drivesave = GETDIR("C:\" ,"Select Only Drives", "Select Drive&quot
driveSAVE =ALLTRIM(driveSAVE)
ThisForm.driveletter.Value=SUBSTR(drivesave,1,LEN(DRIVESAVE))
THISFORM.Refresh

 

[rgbean]

While a bit more complicated (but with a lot more information), you may want to check out

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q176804

- "Getdrive.exe: How To List the Drives on a Win32 System (Q176804)"

Rick

 

[lashwarj]

Nop enot what I am looking for, am looking for something like GETDIR() but that will only show drive letters. So when I select the drive I only get the C:\ listed not all the contents of the C:\

 

[rgbean]

Another alternative is a Combobox with the RowSourcetype set to 7 - Files. The first entry will show the current drive and the sub menu off it will show all the available drives.

You could also load up your own listbox or combobox with a routine like (e.g. change the ? to Additem)

for lnii = asc('A') to asc('Z')
   lcDrive = chr(lnii)
   if BETWEEN(drivetype(lcDrive), 2, 6)
     ?	lcDrive+":"
   endif
endfor

See the help file for the Drivetype values in case you want to limit certain types of drives.

Rick

 

[lashwarj]

ok how do you do the second recomindation of yours

 

[DSummZZZ]

You can use the JUSTDRIVE() function:

cDrive = JUSTDRIVE("C:\TEMP\&quot
cDrive will contain "C:"

Use something like with JUSTDRIVE(GETDIR()) to get the user's selected drive.


Dave S.

 

[lashwarj]

Sorta but i am on a network and need to be able to select from about 13 different drives

 

[DSummZZZ]

JUSTDRIVE(GETDIR()) will work for network drives as well. Select the drive from the combo box.

Dave S.

 

[dgrewe]

this routine will make a database of files, directories, drives on the computer that runs it. it creates a table c:\drives.dbf
then just do a popup with that database

http://ibs.internationalbid.net/home/dave/code_html/dir2dbf.html

alter routine to fit your needs
David W. Grewe
Dave@internationalbid.com

 

[lashwarj]

ok but how do i set that up to work for me

 

[dgrewe]

do this at the foxpro command window
= dir2dbf(.t.,.t.,.t.)

this will create 3 VFP tables on the users hard drive
C:\FILES.DBF && a listing of all files in the default directory
C:\DIRECTRY.DBF && a lising of all sub-directories from the default directory
C:\DRIVES.DBF && a listing of all drive letters active on the computer.

= dir2dbf(.f.,.f.,.t.)
this will create a VFP table on the users hard drive
C:\DRIVES.DBF && a listing of all drive letters active on the computer.

use the dir2dbf command just before the call of the form or in the form's init area.
In your form when you make the popup menu from a database Use the C:\DRIVES.DBF and a list od the drive letters on the users computer appears.


David W. Grewe
Dave@internationalbid.com