我有一个问题，我的宏移动一些文件左右。几个星期前它还能为我工作，现在它给了我一个运行时错误。

Sub test()
Dim fso As Object
Dim SourceFileName As String, DestinFileName As String, oldname As String, newname As String

Set fso = CreateObject("Scripting.Filesystemobject")
SourceFileName = ThisWorkbook.path & "/Test1**"
' oldplace = Replace(SourceFileName, "/", "\")
DestinFileName = ThisWorkbook.path & "/resultat/"
' newplace = Replace(DestinFileName, "/", "\")

fso.MoveFile Source:=SourceFileName, Destination:=DestinFileName

MsgBox (SourceFileName + " Moved to " + DestinFileName)
End Sub

从代码中可以看出，我试图将“/”改为“"，但没有任何区别。我试着创建新的文件夹和文件来移动，但没有运气。
我没有选择创建一个较短的路径，因为我在sharepoint上，我可以更改的路径只有5个字符长。
我觉得我已经看了所有的问题在这里和谷歌它没有运气。