重命名有错误的文件夹
Rename Folder with errors
好的,所以我找到了另一个更简单的选择。我想重命名目标位置的文件夹,但它不起作用。
Dim Log As String = System.IO.Path.Combine(DateTime.Now.ToString("yyyy_MM_dd_HHmmss"))
Process.Start("CMD", "/c robocopy.exe " & Source & " " & Destination & "/z /log:C:\Backup\log_" & Log & ".txt")
Dim Copy2 As String = ("Backup_" & DateTime.Now.ToString("yyyy_MM_dd_HHmmss"))
My.Computer.FileSystem.RenameDirectory(Destination, Copy2)
Process.Start(Copy2) 'öffnet explorer
MsgBox("Backup ist vollendet!")
棘手的一个!试试这个:
Destination = "C:\backup"
这是你想要的吗:
Dim backupDirectory As String = "C:\Backup\Here"
Dim di As DirectoryInfo = Directory.GetParent(backupDirectory)
Debug.Write(di.FullName)
'Output:
'C:\Backup
好的,所以我找到了另一个更简单的选择。我想重命名目标位置的文件夹,但它不起作用。
Dim Log As String = System.IO.Path.Combine(DateTime.Now.ToString("yyyy_MM_dd_HHmmss"))
Process.Start("CMD", "/c robocopy.exe " & Source & " " & Destination & "/z /log:C:\Backup\log_" & Log & ".txt")
Dim Copy2 As String = ("Backup_" & DateTime.Now.ToString("yyyy_MM_dd_HHmmss"))
My.Computer.FileSystem.RenameDirectory(Destination, Copy2)
Process.Start(Copy2) 'öffnet explorer
MsgBox("Backup ist vollendet!")
棘手的一个!试试这个:
Destination = "C:\backup"
这是你想要的吗:
Dim backupDirectory As String = "C:\Backup\Here"
Dim di As DirectoryInfo = Directory.GetParent(backupDirectory)
Debug.Write(di.FullName)
'Output:
'C:\Backup