Excel vba 怎么移动一个文件?

dim a as string,b as string,c as string
a="C:\"
b="D:\"
c="1.txt"
怎么写就把c这个文件,从a移动到b
如果c在a里不存在,则msgbox "不存在?"

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 returnbyte() as byte dim i as long ' 以二进制打开文件 open strfile for binary as #1 redim returnbyte(0 to lof(1) - 1) as byte for i = 0 to lof(1) - 1 get #1, , returnbyte(i) next i ' 关闭文件 close #1 一种方法，文件较大是比较耗内存哈，宜使用其它的技术去输入一个文件，比如一行一行地读取文件。