返回列表 上一主題 發帖

VBA 複製檔案到另一台電腦

VBA 複製檔案到另一台電腦

請問

F = "C:\test.txt"

F2 = "\\192.168.1.1\text\"

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

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

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

回復 1# warhead


    vba判斷是否已登入網頁
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE

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

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

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

TOP

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

試試看能不能成

TOP

回復 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

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

(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

回復 6# jackyq


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

再次感謝您的幫忙,謝謝

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題