文件上傳和下載!緊急!

Question

知道网絡盤的IP地址,以及用戶登錄口令,怎么用VB CODE實現把某個路徑(D:/TEST)下的文件复制到本地的一個文件夾,或者送到遠程主机的文件夾?
    緊急!
    希望大家幫忙!     批處理除外!用VB  CODE怎么實現?

Answer 1

//批處理文件的簡繁体轉換問題怎么解決?
http://www.chenoe.com/blog/article.asp?id=2019//由于本人是繁体操作系統.如果路徑有漢字則复制文件失敗!如果是英文則沒有問題!
转成短路径：
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
'获得短文件名
Public Function GetShortPath(strFileName As String) As String
    Dim lngRes As Long, strPath As String
    strPath = String$(255, 0)
    lngRes = GetShortPathName(strFileName, strPath, 255)
    GetShortPath = Left$(strPath, lngRes)
End Function