dim a as string,b as string,c as string
a="C:\"
b="D:\"
c="1.txt"
怎么写就把c这个文件,从a移动到b
如果c在a里不存在,则msgbox "不存在?"
ä¸é¢ç代ç æ¥çä½ ç4è¡ï¼
a = a & c
b = b & c
if dir(a)="" then
msgbox "ä¸åå¨"
else
name a as b
msgbox "已移å¨"
end if
a = a & c
b = b & c
if dir(a)="" then
msgbox "ä¸åå¨"
else
name a as b
msgbox "已移å¨"
end if
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-02-01
Sub mysub()
Dim fso As Object
Dim a As String, b As String, c As String
a = "C:\"
b = "D:\"
c = "1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(a & c) Then
fso.movefile a & c, b
Else
MsgBox "文件不存在"
End If
Set fso = Nothing
End Sub追问
Dim fso As Object
Dim a As String, b As String, c As String
a = "C:\"
b = "D:\"
c = "1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(a & c) Then
fso.movefile a & c, b
Else
MsgBox "文件不存在"
End If
Set fso = Nothing
End Sub追问
你的和他怎么不一样,我试了试都行耶,详细解释一下呗,一定追加!
追答两种不同的实现方式而已，我的方法是利用fso文件对象，桥的是利用VBA文件处理语句
本回答被提问者采纳