VB.net UploadFile

Question

Я пытаюсь отправить файл на сервер с помощью VB.net. Я нашел много примеров, восклицая, что это просто сделать, но ни один из примеров, которые я нашел, не сработал.

В настоящее время один я пытаюсь в следующем коде:

Dim WithEvents wc As New System.Net.WebClient() 
Private Sub oWord_DocumentBeforeClose(ByVal Doc As Microsoft.Office.Interop.Word.Document, ByRef Cancel As Boolean) Handles oWord.DocumentBeforeClose 
    Try 

     Using wc As New System.Net.WebClient() 
      wc.Credentials = New NetworkCredential("ehavermale", "ernie1") 
      wc.UploadFile("http://192.168.95.1:83/GraphTest.txt", "C:\Users\EHovermale\Desktop\GraphTest.txt") 
     End Using 
    Catch ex As Exception 
     MsgBox("Error:" + ex.Message) 
    End Try 

    'System.IO.File.Delete("C:\Users\EHovermale\Desktop\GraphTest.txt") 

    MsgBox("See Ya") 
End Sub 

Когда я запускаю эту программу я получаю ошибку: Исключение произошло во время WebClient запроса.

У меня есть доступ к файлам для чтения/записи на сервер, на котором я пытаюсь попасть.

Есть ли другой способ загрузить файлы или что-то не так с моим кодом для этого пути?

Спасибо!

Answer 1

Поскольку HTTP-служба не обрабатывает загрузку файла, вы можете сохранить файл напрямую, используя Scripting.FileSystemObject VBA. Это будет работать, если вы можете получить доступ к сетевому ресурсу из любого места, где находится ваш документ. Помните, что если документ переносится на другой компьютер, это может не сработать.

Public Sub MoveFile() 

    Dim fso As Object 
    Dim sourceFile As String 
    Dim targetFile As String 

    ' You must add reference to "Microsoft Scripting Runtime" to your document 
    ' Tools > References... > scroll down the item. 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    sourceFile = "C:\Users\davidr\Desktop\foo.txt" 
    targetFile = "\\192.168.95.1:83\foo.txt" 

    ' Test if destination file already exists 
    If fso.FileExists(targetFile) Then 
     MsgBox ("This file exists!") 
     Exit Sub 
    End If 

    ' Move the file 
    fso.CopyFile sourceFile, targetFile 
    Set fso = Nothing 

End Sub