FiveTech Software tech support forums

Robert, >Does somebody know how to check that network drive is connected? Try this: //--- Is drive ready? FUNCTION ISREADY( cDrive ) LOCAL cCurPath := CURDRIVE() + ":\" + CURDIR() LOCAL lReady := LCHDIR( cDrive + "." ) lSuccess:=.f. IF lReady LCHDIR( cCurPath ) lSuccess:= .T. ENDIF ...

Try:

lisDir( cDrive +":\" )

Or, make it into a function:

function isDrive( cDrive )
return lisDir( cDrive +":\")

James

Se for em FIVEWIN, melhor assim:

//-> cDrive := Disco // A: B: C: D: etc

Code: Select all  Expand view

        nSpace  := DISKSPACE(ASC(LEFT(cDrive,1)) - 64)
//
        lUltimo := IF(DISKSPACE(ASC(cDrive) - 64) > 0,.T.,.F.)


Antonio,

Remove ".and. GetDriveType( cDrive ) == DRIVE_REMOVABLE" in fwh\samples\protect.prg, or check with other constants there

To get the USB pendrive is as easy as (in the above code):

MsgInfo( "USB pendrive: " + CRLF + cDrive, nSerialHD( cDrive ) )

Getting closer to have our own based USB pendrive copy protection system...

Ola Elmo...

Local cDrive

oDisk := TDiskInfo():New( cDrive )
oDisk:TDIVer()

Usando assim, retorna vazio, no mostra la version.

O que y estou fazendo errado ?

Saludos

... NUMERIC DATA nUsedSpace AS NUMERIC DATA nSBCluster AS NUMERIC DATA nFreeSpace AS NUMERIC DATA nTotalSpace AS NUMERIC DATA cLabel AS CHARACTER DATA cDrive AS CHARACTER DATA cNumSerie AS CHARACTER DATA cDriveType AS CHARACTER DATA cFileSystem AS CHARACTER METHOD New( cDrive ) CONSTRUCTOR METHOD TDIVer() ...

oDisk := TDiskInfo():New( cDrive ) oDisk:TDIVer() label:=oDisk:Label() //Etiqueta drive:=oDisk:Drive() //Unidad dtype:=oDisk:DriveType() //Tipo de Unidad nserie:=oDisk:NumSerie() //Numero de Serie sarchivo:=oDisk:FileSystem() //Sistema ...

... it works perfectly on mapped drives also. I am reproducing the test program below: #include "fivewin.ch" //////////////////////// FUNCTION Main( cDrive ) LOCAL nSerial local cHex DEFAULT cDrive := "C:" nSerial := nSerialHD(cDrive) cHex := L2HEX(nSerial) cHex := LEFT(cHex,4) + "-" +RIGHT(cHex,4) ...

... in respect of nSerialHd() This is the code I used for testing nSerialHd(). #include "fivewin.ch" FUNCTION Main() LOCAL cSerialNos := "", cDrive, n, nSerial, aDrives cSerialNos += "Default Drive Serial No."+STR(nSerialHD())+CRLF+CRLF aDrives := aDrives() FOR n = 1 TO LEN(aDrives) cDrive ...

Ramesh,

FiveWin 16 bits provides nSerialHD( [<cDrive>] )

... :Save() END ENDIF CATCH oError // END // RETURN ( oError = NIL ) //**** FUNCTION MapToNextDrive( cShare ) //**** LOCAL i, cDrive, lDone := .F., WshNetwork // TRY WshNetwork := CreateObject( "WScript.Network" ) cRealShare := "\" + STRTRAN( cShare, "\SP\FENIX2K", "" ) cShare ...