1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub Form_Load()
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, ""
Print #nNumFile, Now & "|PAss :" & FileExists2("\\TOSS\Documents\testunc\file.txt")
Close nNumFile
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, Now & "|PAss 0:" & FileExists2("C:\Documents and Settings\All Users\Documents\testunc\file.txt")
Close nNumFile
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, Now & "|PAss 3:" & DIR_UNC("\\TOSS\Documents\testunc\file.txt")
Close nNumFile
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, Now & "|PAss 5:" & DIR_UNC("C:\Documents and Settings\All Users\Documents\testunc\file.txt")
Close nNumFile
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, Now & "|PAss 4:" & Dir("C:\Documents and Settings\All Users\Documents\testunc\file.txt", vbHidden)
Close nNumFile
Open "c:\Services.log" For Append As nNumFile
Print #nNumFile, Now & "|PAss 1:" & Dir("\\TOSS\Documents\testunc\file.txt")
Close nNumFile
End Sub |
Partager