各位高手
我須將檔案自Client端Copy至Server端,程式如下:
Dim fFso As New FileSystemObject
Set fFso = CreateObject("Scripting.FileSystemObject")
wFile = "\\192.68.30.1\D\Test\DOC"
'檢查目錄是否存在,不存在則Create
If fFso.FileExists(wFile) <> True Then
fFso.CreateFolder (wFile)
End If
結果第一次執行時,確實CreateFolder,可是第二次以後程式仍然執行此行,為什麼呢?照理說第二次以後Boolean值不是應為True嗎?
我須將檔案自Client端Copy至Server端,程式如下:
Dim fFso As New FileSystemObject
Set fFso = CreateObject("Scripting.FileSystemObject")
wFile = "\\192.68.30.1\D\Test\DOC"
'檢查目錄是否存在,不存在則Create
If fFso.FileExists(wFile) <> True Then
fFso.CreateFolder (wFile)
End If
結果第一次執行時,確實CreateFolder,可是第二次以後程式仍然執行此行,為什麼呢?照理說第二次以後Boolean值不是應為True嗎?
文章標籤
全站熱搜
