- 415 名前：325 mailto:sage [2009/10/21(水) 15:09:21 ]
- >>382
ありがとうございます。勘違いしてました・・・・
しかし、\\サーバIPにしてもだめでした。
Sub COPY_SAMPLE()
Dim objShell
Dim objFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("\\サーバ名\フォルダ名1\フォルダ名2")
If (Not objFolder Is Nothing) Then
objFolder.CopyHere "c:\TEST.txt"
Else
MsgBox "Nothing"
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Nothingのメッセージボックスが出ます・・・
