標題: VBA 複製檔案到另一台電腦 [打印本頁]

---

作者: warhead    時間: 2018-4-26 10:58     標題: VBA 複製檔案到另一台電腦

請問

F = "C:\test.txt"

F2 = "\\192.168.1.1\text\"

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

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

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

---

作者: GBKEE    時間: 2018-4-26 12:14

回復 1# warhead


    vba判斷是否已登入網頁

---

作者: warhead    時間: 2018-4-26 13:49

回復 2# GBKEE

G大您提供的是網頁的登入方式，看起來好像是去找input的欄位填上，

我是利用網芳要把檔案丟到另一台電腦哩，他直接跳出權限不足，

沒有出現我可以輸入密碼的地方，所以摸不著頭緒要從何下手。

---

作者: jackyq    時間: 2018-4-26 17:28

https://stackoverflow.com/questions/631401/access-network-share-from-within-vbscript-eg-filesystemobject

試試看能不能成

---

作者: warhead    時間: 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

---

作者: jackyq    時間: 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   '連線成功

---

作者: warhead    時間: 2018-4-30 10:54

回復 6# jackyq


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

再次感謝您的幫忙，謝謝

---

作者: mark15jill    時間: 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磁碟機刪除

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)