diskspace

[channelmaster]

How can you check if the disk has sufficient free space for back up purposes. Thanks again.

 

[jesylv]

Could use aDir() and FSIZE to estimate space requirements and DiskSpace() to measure space availability. Check VFP Help system for proper usage of functions.

Jean

 

[craigsboyd]

As Jean was saying....try something like this...

nspaceleft = Diskspace()
nfiles = Adir(arfn)
nspaceneeded = 0
For ncount = 1 To nfiles
nspaceneeded = nspaceneeded + arfn(ncount,2)
Endfor
If nspaceleft <= nspaceneeded
Messagebox(&quot;There is not enough room on your hard drive.&quot;,16,&quot;Unable Backup...&quot
Else
*!* Do your backup code
Endif
Slighthaze = NULL

 

[channelmaster]

what is the arfn? Thanks again

 

[craigsboyd]

the arfn is an array that will hold the information returned from the Adir function. From the help file:

ADIR(ArrayName [, cFileSkeleton [, cAttribute [, nFlag]]])

if the array doesn't exist then VFP creates it for you Slighthaze = NULL

 

[channelmaster]

Ok i got it,in my case i have a slave drive on drive d: and i want to know if there is a sufficient diskspace on drive d: before i back up my files, how can i compare my files in,e.g. c:\mydata\ to d:\mybackup\.thanks again

 

[DSummZZZ]

Try this:

nDBFfiles = ADIR(aDBFfiles, 'c:\mydata\*.dbf')
nCDXfiles = ADIR(aCDXfiles, 'c:\mydata\*.cdx')
nDSpace = DISKSPACE('D:')

STORE 0 TO nCspace
FOR i = 1 TO nDBFfiles
nCspace = nCspace + aDBFfiles[i, 2]
NEXT
FOR i = 1 TO nCDXfiles
nCspace = nCspace + aCDXfiles[i, 2]
NEXT

IF nDspace < nCspace
MESSAGEBOX('Not enough room')
ELSE
MESSAGEBOX('Plenty of room')
ENDIF
Dave S.