返回列表 上一主題 發帖

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

開個記事本
輸入以下程式碼
存成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

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題