求代码，怎么检测文件夹正在使用（文件夹中的任何一个文件正在使用）

2013-03-01

求代码，如何检测文件夹正在使用（文件夹中的任何一个文件正在使用）需要检查一个文件夹是否正在使用，也就是

求代码，如何检测文件夹正在使用（文件夹中的任何一个文件正在使用）
需要检查一个文件夹是否正在使用，也就是文件夹中的任何一个文件正在使用，求代码！
谢谢！各位老师。
[解决办法]
本帖最后由 apple_8180 于 2013-02-25 16:58:27 编辑

lcDir='c:\vfp\'&& 要判断的文件夹
Set Default To (lcDir)
gnFiles=Adir(gaFile,'*.*')
llError=.F.
For lnI=1 To gnFiles
lnOldFileName=gaFile(lnI,1)
lnNewFileName=Sys(2015)+'.aaa'
Try
Rename (lnOldFileName) To (lnNewFileName)
Rename (lnNewFileName) To (lnOldFileName)
Catch
llError=.T.
Endtry
If llError
Exit
Endif
Endfor
If llError
Messagebox('文件夹被占用',48,'信息提示')
Else
Messagebox('文件夹未被占用',64,'信息提示')
Endif

[解决办法]

引用:

如果此文件正在被拷贝，也可以用Fopen() 打开此文件来判断吗？

可以用 Fopen 来判断

cOldDir = Sys(5) + Curdir()
Set Default To (Getdir())

If Adir(aTemp, '*.*') > 0
    cFile = ''
    For ii = 1 To Alen(aTemp, 1)
        cFile = aTemp[ii, 1]
        hh = Fopen(cFile, 2)
        If hh > 0
            Fclose(hh)
            cFile = ''
        Else
            Exit
        Endif
    Endfor

    If !Empty(cFile)
        Messagebox(Textmerge('文件 <<cFile>> 正被其他进程占用。'))
    Endif
Endif

Set Default To (cOldDir)

热点排行

VFP

求代码，怎么检测文件夹正在使用（文件夹中的任何一个文件正在使用）