怎么判断一个文件正在生成，也就是还没拷贝完？

Question

我怎么知道正在拷贝的文件拷贝是否结束啊？

Answer 1

open ""........打开文件读，如果可以读，就证明拷贝完，如果正在拷贝是不能读的

Answer 2

'*********************************************************
'* 名称：FileExists%(filename$)
'* 功能：此函数用于判断文件是否存在
'* 用法：FileExists%('文件名称')
'* 文件不存在返回 0
'*********************************************************
Function FileExists%(filename$)
    Dim F%
    
    On Error Resume Next
    
    F% = FreeFile
    Open filename$ For Input As #F%
    Close #F%
    
    FileExists% = Not (Err <> 0)
End Function