?MyGetPageFileVal()
Function MyGetPageFileVal
lnPageFileVal=0
For I=67 To 90 &&循环C盘到Z盘
If Directory(Chr(I)+":/RECYCLED",1) &&如果存在回收站,说明此分区存在.此句要求是VFP9,VFP9以下没有第2个参数.
lnFileNum=Adir(gaFile,Chr(I)+":/*.SYS",'S')
For J=1 To lnFileNum
If gaFile(J,1)="PAGEFILE.SYS"
lnPageFileVal=lnPageFileVal+gaFile(J,2) &&单位是字节
Endif
Endfor
Endif
Endfor
Return lnPageFileVal/1024/1024 &&单位是M
Endfunc