VBA 複製檔案到另一台電腦

請問

F = "C:\test.txt"

F2 = "\\192.168.1.1\text\"

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile F, F2
Set fs = Nothing

此時會出現權限不足，原因為區網需要帳號密碼登入。

請問我如何直接給與帳號密碼，使檔案可以順利複製過去?

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2018-5-27 14:10 | 只看該作者

開個記事本
輸入以下程式碼
存成XXXX.bat

@echo on

net use x: \\BBB\AAA
XCOPY "x:\" D:\CCCC\ /E /C /Q /Y
net use x: /delete
pause

程式說明
將代號X 為區網內的BBB電腦內的 AAA資料(需先開共享) 磁碟機

將AAA資料夾複製到 D槽內 CCCC 的資料夾內 (參數請自行查詢)
把X磁碟機刪除

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

warhead

中學生 Rank: 2

帖子: 33
主題: 10
精華: 0
積分: 74
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-6-9
最後登錄: 2024-7-8

7^#

發表於 2018-4-30 10:54 | 只看該作者

回復 6# jackyq

J大，使用你的方式在自己電腦測試成功，在回到區網上測試，發現在是資料夾共用沒設定好

再次感謝您的幫忙，謝謝

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2026-1-5

6^#

發表於 2018-4-27 11:51 | 只看該作者

我用自己電腦連線自己電腦測試
步驟如下

(1)
下面網址只看 8 ,9 ,10 這3各步驟 ( 因為我只連自己電腦 )
http://system.cyut.edu.tw/tech/share1/share.html

我設定分享文件夾名稱 = QQ

(2)
打開命令提示 -> 打入 IPconfig -> 找到區域連線xx

區域連線xx 分支下有個 IP Address , 這個才是電腦的 IP

像我的 = \\192.168.1.104

'==========================

ServerShare = "\\192.168.1.104\QQ"
UserName = ""
Password = ""

Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password '連線成功

TOP

warhead

中學生 Rank: 2

帖子: 33
主題: 10
精華: 0
積分: 74
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-6-9
最後登錄: 2024-7-8

5^#

發表於 2018-4-27 10:02 | 只看該作者

回復 4# jackyq

J大，在紅色那一行會出現找不到路徑，
但我直接從檔案總管的地方給\\192.168.1.1 會出現要我輸入帳號密碼，這樣代表路徑應該沒問題對吧?

Dim Directory as Object
ServerShare = "\\192.168.1.1\test"
UserName = "test"
Password = "test"

Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
WScript.Echo FileName.Name
Next

Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing

NetworkObject.RemoveNetworkDrive ServerShare, True, False

Set ShellObject = Nothing
Set NetworkObject = Nothing

TOP

jackyq