Dim fs As New FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
'ddd = fs.VolumeName
'On Error GoTo ERRINF
Set fs = CreateObject("Scripting.FileSystemObject")
  '-------------------------------------------------
  ' fs.CopyFile "c:\80\*.*", "C\" '錯誤語法
  ' fs.CopyFile "c:\80\*.*", "C:" '正確語法
  ' fs.CopyFile "c:\80\*.rec", "C:" '疑問--為何不行
  '-------------------------------------------------
  ' fs.CopyFile "c:\80\*.*", "d:\a " '錯誤語法
  ' fs.CopyFile "c:\80\*.*", "d:\a\" '正確語法
  '-------------------------------------------------
fs.CopyFile "c:\80\*.*", "\\scadaserver\C\sh1\" '測試結果不行
fs.CopyFile "c:\80\*.*", "\\cableserver\C\a\"  '測試不行
'上述兩資料夾已開放共享,可讀寫
'是否與ID 與密碼 設定有關 若要連結到有設密碼的資料夾 該如何處理?
創作者介紹

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 PIXNET 留言(7) 人氣()


留言列表 (7)

發表留言
  • kevin
  • FSO無法將檔案直接copy到指定的另一台電腦上,不過你可以試一下,先把另一台電腦的目的地設成網路磁碟機,再Copy至該槽!
  • 小宏
  • 直接使用FileCopy指令就可以將檔案複製到另一台電腦上,可以不需使用網路磁碟機,但是可不可以用萬用字元,請您自已再試試看吧
  • 小劉
  • 以前寫過fs.CopyFile "c:\80\*.rec", "\\cableserver\C\a\" 的語法可行.並寫在紀錄簿中.可寫至另一台PC 並可以副檔名選擇,但不知為何現在不行了.
    試過連線網路連接磁碟機的方式可行,但不知有沒有缺點?
  • kevin
  • 如果,你覺得連接網路磁碟機有著其它考量,你可以使用
    Net Use 這個Command,在程式裏動態連接網路磁碟機,在動態釋放
  • 小劉
  • fs.CopyFile "c:\80\*.*", "\\scadaserver\C\sh1\" '測試結果不行
    後來發現是ID/PASSWORD 的問題.(win98 PC,開放檔案資源完整分享,網路傳遞已正常,但檔案若設定密碼時則出現找不到路徑的問題)
    問題:1.若遇到有密碼才能修改的資料夾,程式該如何寫?
    2.使用SERVER 2000的PC,資料夾該如何設定,程式該如何寫才能順利的傳 
        遞資料.
  • 小劉
  • 語法: object.CopyFile source, destination[, overwrite]
    source:指明一個或多個要被複寫檔案的字串檔案說明,可以"包括萬用字元"。
    執行 fs.CopyFile "c:\80\*.rec", "C:" 得到 "53找不到檔案"的錯誤訊息
    執行 fs.CopyFile "c:\80\*.rec*", "C:" 已解決了我目前的問題
    真是太高興了 ^_^ 想了好久 TRY對了---> 與大家分享
  • 吉米
  • 如果要用對應的Server Name,我比較喜歡用 IP Address 去做耶,在這邊小小的建議。