File Busy (optaget)

Der findes ikke nogen direkte funktion, men følgende kan bruges hvis ikke filerne er kæmpe store:
function isFileBusy(filename)
    isFileBusy=false
    Set filesys = CreateObject("Scripting.FileSystemObject")
    if fileSys.Fileexists(filename)= true then
        myfoldername=filesys.getParentFolderName(filename)
        set myFile = filesys.getFile(filename)
        tmpname=filesys.getTempName
        myFile.Copy(myfoldername&"\"&tmpname)
        on error resume next
        myFile.Delete
        If Err.Number = 0 Then
            filesys.CopyFile myFoldername&"\"&tmpname,filename
        else
            isFileBusy = true
        end if
        filesys.DeleteFile(myFoldername&"\"&tmpname)
        set myfile = nothing
    end if
    set filesys = nothing

end function

msgBox isFileBusy("fil.txt")

du giver bare den direkte sti til filen og den returnere sand eller eller falsk alt efter om filen er i brug.
isFileBusy("C:\test\fil.txt")

Nu ved jeg jo ikke hvad kæmpe store er, men vi snakker vel 1 - 80 MB stykket, men det kører på en dual cpu maskine, der ikke laver andet, så det betyder vel ikke alverden ?

Tak for hjælpen !

jeg ved ikke hvad maks er, men jeg tror ikke det bliver noget problem. Prøv dig frem, man kan altid optimere lidt på ovenstående

Takker ! god weekend

Tak for points, håber det kan bruges.