Thay đổi tên file đang đóng và chuyển thư mục

[le tin]

Chào các bạn
Nhờ các cao thủ cho xin code đổi tên 1 file đang đóng và chuyển sang 1 thư mục khác
Cảm ơn

 

[viehoai]

Chào các bạn
Nhờ các cao thủ cho xin code đổi tên 1 file đang đóng và chuyển sang 1 thư mục khác
Cảm ơn

Không biết Bác có ý gì khác không

Sub DoitenFile()
Filename = "E:\1.Foder Tam\thu copy.xls"
NewFileName = "E:\Hoai.xls"
Name Filename As NewFileName
End Sub

 

[ndu96081631]

Không biết Bác có ý gì khác không

Sub DoitenFile()
Filename = "E:\1.Foder Tam\thu copy.xls"
NewFileName = "E:\Hoai.xls"
Name Filename As NewFileName
End Sub

Dùng cái này tốt hơn:

Sub MoveAndRenameFile(ByVal SrcFile As String, ByVal DesFile As String)
  On Error Resume Next
  With CreateObject("Scripting.FileSystemObject")
    If .FileExists(SrcFile) Then .MoveFile SrcFile, DesFile
  End With
End Sub

Vì cách thông thường sẽ bị lỗi khi gặp đường dẫn là tiếng Việt có dấu
Để chạy code, ta viết thêm 1 đoạn nữa, ví dụ:

Sub Test()
  Dim SrcFile As String, DesFile As String
  SrcFile = "E:\1.Foder Tam\thu copy.xls"
  DesFile = "E:\Hoai.xls"
  MoveAndRenameFile SrcFile, DesFile
End Sub