读书人

vba中怎么根据ip读写网络其他主机中的

发布时间: 2012-01-20 18:53:53 作者: rapoo

vba中如何根据ip读写网络其他主机中的共享文件
如题。已知ip、共享文件的目录。另外,在vba中使用vb的api函数有什么要求没有?谢谢!

[解决办法]

VB code
Private Type SHFILEOPSTRUCT     hwnd As Long     wFunc As Long     pFrom As String     pTo As String     fFlags As Long     fAnyOperationsAborted As Long     hNameMappings As Long     lpszProgressTitle As StringEnd TypePrivate Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Sub Form_Load()    Dim result As Long, fileop As SHFILEOPSTRUCT    With fileop            .hwnd = Me.hwnd            .wFunc = FO_COPY            .pFrom = "C:\My Documents" & vbNullChar & vbNullChar            .pTo = "\\SQL\董博士\" & vbNullChar & vbNullChar            .fFlags = FOF_SILENT Or FOF_NOCONFIRMATION        result = SHFileOperation(fileop)    End WithEnd Sub 

读书人网 >VB

热点推荐