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 gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Driver a:
- Thread starter kitnba
- Start date
ChrisRChamberlain
Programmer
kitnba
*
* isDiskIN( <cDrive> ) --> boolean
*
* Return TRUE if drive <cDrive> is ready.
* e.g:
* IF isDiskIN("A:"
* DO backup
* ELSE
* MESSAGEBOX("Drive not ready"
* ENDIF
*
* Ricardo Fynn (Montevideo, Uruguay)
* rfynn@cs.com.uy
*
FUNCTION isDiskIN( cDrive )
LOCAL lIsLoaded
cDrive = ALLTRIM(cDrive)
IF LEN(cDrive) > 2 .OR. LEN(cDrive) = 0 .OR. .NOT. ;
[tab]BETWEEN(ASC(UPPER(cDrive)), 65, 90)
[tab]RETURN .F.
ENDIF
IF RIGHT(cDrive,1) # ":"
[tab]cDrive = cDrive + ":"
ENDIF
lIsLoaded = "FOXTOOLS" $ SET("LIBRARY"
IF .NOT. lIsLoaded
[tab]SET LIBRARY TO SYS(2004)+"FOXTOOLS.FLL" ADDITIVE
ENDIF
cOldError = ON('error')
ON ERROR lDiskError = .T.
cSetErrMode = regfn("SetErrorMode", "I", "I"
cOldErrState = callfn(cSetErrMode,1)
lDiskError = .F.
cDrivestate = FILE(cDrive + "\NUL"
IF .NOT. lDiskError
[tab]IF cDrivestate
[tab][tab]cDriveok = .T.
[tab]ELSE
[tab][tab]cDriveok = .F.
[tab]ENDIF
ELSE
[tab]cDriveok = .F.
ENDIF
IF .NOT. EMPTY(cOldError)
[tab]ON ERROR DO (cOldError)
ELSE
[tab]ON ERROR
ENDIF
cRestErrState = callfn(cSetErrMode,cOldErrState)
IF .NOT. lIsLoaded
[tab]RELEASE LIBRARY SYS(2004)+"FOXTOOLS.FLL"
ENDIF
RETURN cDriveok
ENDFUNC
This is a .prg available from
Chris
*
* isDiskIN( <cDrive> ) --> boolean
*
* Return TRUE if drive <cDrive> is ready.
* e.g:
* IF isDiskIN("A:"
* DO backup
* ELSE
* MESSAGEBOX("Drive not ready"
* ENDIF
*
* Ricardo Fynn (Montevideo, Uruguay)
* rfynn@cs.com.uy
*
FUNCTION isDiskIN( cDrive )
LOCAL lIsLoaded
cDrive = ALLTRIM(cDrive)
IF LEN(cDrive) > 2 .OR. LEN(cDrive) = 0 .OR. .NOT. ;
[tab]BETWEEN(ASC(UPPER(cDrive)), 65, 90)
[tab]RETURN .F.
ENDIF
IF RIGHT(cDrive,1) # ":"
[tab]cDrive = cDrive + ":"
ENDIF
lIsLoaded = "FOXTOOLS" $ SET("LIBRARY"
IF .NOT. lIsLoaded
[tab]SET LIBRARY TO SYS(2004)+"FOXTOOLS.FLL" ADDITIVE
ENDIF
cOldError = ON('error')
ON ERROR lDiskError = .T.
cSetErrMode = regfn("SetErrorMode", "I", "I"
cOldErrState = callfn(cSetErrMode,1)
lDiskError = .F.
cDrivestate = FILE(cDrive + "\NUL"
IF .NOT. lDiskError
[tab]IF cDrivestate
[tab][tab]cDriveok = .T.
[tab]ELSE
[tab][tab]cDriveok = .F.
[tab]ENDIF
ELSE
[tab]cDriveok = .F.
ENDIF
IF .NOT. EMPTY(cOldError)
[tab]ON ERROR DO (cOldError)
ELSE
[tab]ON ERROR
ENDIF
cRestErrState = callfn(cSetErrMode,cOldErrState)
IF .NOT. lIsLoaded
[tab]RELEASE LIBRARY SYS(2004)+"FOXTOOLS.FLL"
ENDIF
RETURN cDriveok
ENDFUNC
This is a .prg available from
Chris
The quick & simple solution:
Drawback: annoying diskdrive noise & possible erratic behaviour under Windows NT
The prev. post is a neater solution.
To give yet another solution (taken from the VFUG newsletters issues September 2000 & November 2000):
Refer to the VFUG newsletters (to be found on their web-page) for more info on the subject)
Diederik Vermeeren
verm1864@exact.nl
Code:
lDriveReady = (DISKSPACE("A") != -1)Drawback: annoying diskdrive noise & possible erratic behaviour under Windows NT
The prev. post is a neater solution.
To give yet another solution (taken from the VFUG newsletters issues September 2000 & November 2000):
Code:
oFSO = CREATEOBJECT("Scripting.FileSystemObject")
IF oFSO.DriveExists("A")
oDrive = oFSO.GetDrive("A")
lReady = oDrive.IsReady
ENDIFRefer to the VFUG newsletters (to be found on their web-page) for more info on the subject)
Diederik Vermeeren
verm1864@exact.nl
- Status
Similar threads
