将所有文件和文件夹移动到Access VBA中的其他文件夹
我想备份所有文件和文件夹 例如:我有两个文件和一个文件夹在D:\Temp文件夹中 我在同一个文件夹中还有一个名为“备份”的文件夹,即D:\Temp\ 因此,我想将所有文件和文件夹(备份文件夹除外)移动到Access VBA中的备份文件夹中。可能吗 这是我试过的远离罗恩的密码 我试图从一个文件夹移动到临时文件夹,然后从临时文件夹移动到我的原始文件夹,如下所示。但是我犯了一个错误将所有文件和文件夹移动到Access VBA中的其他文件夹,vba,ms-access,Vba,Ms Access,我想备份所有文件和文件夹 例如:我有两个文件和一个文件夹在D:\Temp文件夹中 我在同一个文件夹中还有一个名为“备份”的文件夹,即D:\Temp\ 因此,我想将所有文件和文件夹(备份文件夹除外)移动到Access VBA中的备份文件夹中。可能吗 这是我试过的远离罗恩的密码 我试图从一个文件夹移动到临时文件夹,然后从临时文件夹移动到我的原始文件夹,如下所示。但是我犯了一个错误 savepath = "d:\test\" savepath2 = "d:\temp\" savepath1 = "d:
savepath = "d:\test\"
savepath2 = "d:\temp\"
savepath1 = "d:\test\Archieve\"
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = savepath '<< Change
ToPath = savepath2 '<< Change
If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If
FSO.moveFolder Source:=FromPath, Destination:=ToPath
If Not DirExists(savepath) Then
MkDir (savepath)
End If
If Not DirExists(savepath1) Then
MkDir (savepath1)
End If
FromPath = savepath2 '<< Change
ToPath = savepath1 '<< Change
If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If
If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If
FSO.moveFolder Source:=FromPath, Destination:=ToPath
savepath=“d:\test\”
savepath2=“d:\temp\”
savepath1=“d:\test\archive\”
作为对象的Dim FSO
将FromPath设置为字符串
作为字符串的Dim-ToPath
FromPath=savepath'有两个问题:(1)您不确定哪行代码有错误,这会让其他人花额外的时间查看您的所有代码
(2) 您的语法错误-更改
If Not DirExists(savepath) Then
将是:
If Not FSO.FolderExists(savepath) Then
在Windows 10中也不允许移动。您必须复制文件和/或文件夹,然后将其删除。如果删除文件夹,则需要确保该文件夹为空,否则会出现错误