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

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

------解决方案--------------------

本帖最后由 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)

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

相关推荐