none
VB2008 如何將檔案存放置網路上指定路徑 RRS feed

  • 問題

  • 請教各位大大,這是我對PC下的指令要將檔案存放到網路芳鄰上的PC中..


        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Try
                My.Computer.Network.UploadFile("D:\資料庫\20120605Temp.mdb", "\\192.168.0.2\\MYUSER-1B7487FF\\test", "", "", True, 500)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, "Error")
            End Try

        End Sub

    異常訊息:

    ex = {"要求已經中止: 已經取消要求。"}

    但我直接由本機D槽將檔案複製過去是OK的,請問是否有其他我疏忽的地方?


    新手上路

    2012年11月3日 上午 10:32

解答

  • UploadFile 是針對 http / ftp 的。

    網芳請先通過 Windows 認證,使用 FileCopy


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年11月3日 下午 12:55

所有回覆

  • 您好,

    會是因為您設定的 「connectionTimeout」 太裋了嗎(以毫秒為單位)?

    500 => 0.5 秒哦!

    connectionTimeout

    Int32。逾時間隔 (以毫秒為單位)。預設值為 100 秒。


    以上說明若有錯誤請指教,謝謝。
    亂馬客blog: http://www.dotblogs.com.tw/rainmaker/


    • 已編輯 亂馬客 2012年11月3日 上午 11:16
    2012年11月3日 上午 11:15
  • UploadFile 是針對 http / ftp 的。

    網芳請先通過 Windows 認證,使用 FileCopy


    論壇是網友平等互助 保證解答請至 微軟技術支援服務


    提問時,錯誤情境描述與錯誤訊息很重要,情境描述包含你做了什麼,預期的結果與實際發生的結果。一個最爛的問法範例:「我的電腦電腦怎麼不能開機?」誰知道你家是不是沒電還是你根本找不到電源鈕。

    2012年11月3日 下午 12:55
  • 你可以試一下這code

    Dim FileToCopy As String Dim NewCopy As String FileToCopy = "C:\Users\Owner\Documents\test.txt" NewCopy = "C:\Users\Owner\Documents\NewTest.txt" If System.IO.File.Exists( FileToCopy ) = True Then System.IO.File.Copy( FileToCopy, NewCopy ) MsgBox("File Copied") End If



    大家一齊探討、學習和研究,謝謝!
    MCSD, MCAD, MCSE+I, MCDBA, MCDST, MCSA, MCTS, MCITP, MCPD,
    MCT, Microsoft Community Star(TW & HK),
    Microsoft MVP for VB.NET since 2003
    My MSMVP Blog


    2012年11月6日 上午 01:54
  • 分享小弟成果,感謝大大們的提示:

    Module Module1 Sub Main() Dim process As Process = New Process() Try Dim server, sharename, password, username server = "192.168.1.99" sharename = "test" username = "uu" password = "1" process.StartInfo.FileName = "net.exe" process.StartInfo.Arguments = "use \\" + server + "\" + sharename + " " + "/password:" + password + " /user:" + username process.StartInfo.CreateNoWindow = True process.StartInfo.UseShellExecute = False process.Start() process.WaitForExit() System.IO.File.Copy("d:\ALARM.txt", "\\" + server + "\\" + sharename + "\\1.txt", True) process.StartInfo.Arguments = "use \\" + server + "\" + sharename + " /delete" process.Start() process.Close() Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Information, "Error") Finally process.Dispose() End Try '無密碼直接COPY My.Computer.FileSystem.CopyFile("D:\Alarm.txt", "\\MYUSER-1B7487FF\\test\\Alarm.txt", True) Try My.Computer.FileSystem.CopyFile("D:\Alarm.txt", "\\192.168.1.99\\test\\2.txt ,True) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Information, "Error") End Try End Sub End Module



    新手上路


    • 已編輯 eblue 2012年11月8日 上午 10:01
    2012年11月8日 上午 10:00