Valid Drive

[crimmelcp]

Need to check if a drive on a network is valid

Do something like this.
I can find list drives in help file but not drive exists.

Thanks
Charlie Crimmel

if drive "V" exists then
do somethibg
else
end
end if

[DaveM]

Re: Valid Drive

Hi Charlie,

Knowing why you need this may give a way to do it??

Try this??

?a5_is_path_valid("s:")

.

[crimmelcp]

Re: Valid Drive

I am moving client applications to a Citrix Server located 500 miles away.

on the citrix it keeps the C drive as the drive on the Citrix server
It assigns other drive letters to the users computer (V:)
I know what drive letters the Citrix will assign based on user profiles.

I need to copy exported files from the Citrix server to the local users computer
I am going to use the code below to determine the status of the drive.

dim global valid_drive as L
dim global DriveV as L

valid_drive = a5_is_path_valid("V:")
if valid_drive = .t. then
trace.WriteLn("V Drive is Valid")
VAR->DRIVEV = .T.
else
trace.WriteLn("V Drive is NOT Valid")
end if

If var->DriveV = .t. then
do copy routines here
end if

[MikeC]

Re: Valid Drive

Could also use file.Drives_get() and even file.drive_type() to determine this.
http://support.alphasoftware.com/alp...IVES_GET().HTM

http://support.alphasoftware.com/alp...IVE_TYPE().HTM

[crimmelcp]

Re: Valid Drive

mike:
I saw that but I could not get the code to work to read the list
and check if the drive that I needed was there to set the variable to true or false.

thanks
Charlie crimmel

[MikeC]

Re: Valid Drive

Charlie,
If you want to figure out how to make it work let me know--I have used it several times in the past without issue....I have not tested it in v10 however.

[crimmelcp]

Re: Valid Drive

Mike:
If you have the code handy I would like to see how it works.

Thanks
Charlie Crimmel

[MikeC]

Re: Valid Drive

Charlie,
Most of my code was for determining the drives for backup methods but put together a few to maybe give you an idea of how I have done things...the following was done in the interactive editor for the most part...the paths would have been gotten from variables set prior generally but sounds like you would be using it as a hard coded "V" drive.

I also used a different function for the drive list...the other I linked to also creates a list but with whatever delimiter you want---I prefer crlf lists as almost anything can then be done with them when parsing. vPath is a variable created prior that has the full path of the file.

dim lst as c
lst=a5_get_writeable_drives()
?lst
= A:\
C:\
D:\
F:\
G:\
I:\
J:\
K:\
L:\
S:\

dim exst as L
exst=wordat("V:\\",lst,crlf())>0
?exst
= .F.

exst=wordat("D:\\",lst,crlf())>0
?exst
= .T.

'So once the drive was shown to exist I then test for the drive type 
 '  and made certain it had enough free drive space for the file.

dim drv_type as c
dim drv_sp as n
drv_type=file.drive_type("D:\\")
drv_sp=file.drive_space_avail("D:\\")
if drv_type= "Fixed"
    dim fil_sz as n
    fil_sz=file.size(vPath)
    if drv_sp <fil_sz
        msgbox("The drive does not have enough space available.")
        end
      else
      'do whatever
    end if
  else
    msgbox("This drive is not a fixed drive.")
    end
end if

Maybe will help....maybe confuse!! Hope the former.