Có thể dùng VBAl để cắt tên file nhạc (2 người xem)

[Tường_Vi]

Có thể dùng VBA để cắt tên file nhạc

Muội có rất nhiều file nhạc nhưng nó có kiểu như này
01 Lovemedo.wma
02 Letitbe.wma
03 Yesterday.wma
04 Lovemetender.wma
05 Ohmylove.wma

Có cách nào để cắt bỏ (02 số đầu và khoảng trắng trên đi bằng VBA ko?)
Muội có tham khảo code của Anh Tuấn 1066 (NDU) nhưng trường hợp của muội có lẽ phải thêm thắt nhiều nhỉ?

Sub DOITEN()
   Filename = "D:\Tuan.txt"
   NewFileName = "D:\Tuan1" & skill & ".txt"
   Name Filename As NewFileName
End Sub

Muội tạm thời nghĩ như sau
1. Đếm xem trong thư mục chưa file nhạc có bao nhiêu file nhạc (không biết có cần phải cùng đuôi không?)
2. Dùng vòng lặp
3. Ghép code của Anh Tuấn 1066

Muội có sưu tầm được một code đổi tên file (sort luôn) không biết hỗ trợ gì trong bài toán này ko?

..........
Dim fs, f, fc

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("E:\Tuong_Vi\MyMusic")
Set fc = f.Files
I = 0
For Each file In fc
I = I + 1
Listview.ListItems.Add I, "k" & I, file.Name
Next
Listview.SortKey = 0
Listview.SortOrder = lvwAscending
..........

 

[ndu96081631]

Muội có rất nhiều file nhạc nhưng nó có kiểu như này
01 Lovemedo.wma
02 Letitbe.wma
03 Yesterday.wma
04 Lovemetender.wma
05 Ohmylove.wma

Có cách nào để cắt bỏ (02 số đầu và khoảng trắng trên đi bằng VBA ko?)

Dùng thử code này xem:

Sub Main()
  Dim sFolder As String, Item, NewName As String
  On Error GoTo ExitSub
  With CreateObject("Shell.Application")
    sFolder = .BrowseForFolder(0, "", 1).Self.Path
  End With
  With CreateObject("Scripting.FileSystemObject")
    For Each Item In .GetFolder(sFolder).Files
      If IsNumeric(Left(Item.Name, 2)) Then
        NewName = Mid(Item.Name, 3, Len(Item.Name))
        NewName = Item.ParentFolder.Path & "\" & Trim(NewName)
        Name Item.Path As NewName
      End If
    Next
  End With
ExitSub:
End Sub

 

[Tường_Vi]

Cám ơn Huynh NDU nhiều
Có lẽ đời này muội không dám mơ mình viết code được như vậy, gần 500 trăm bài hát của muội đã được giải quyết êm đẹp

Cám ơn Huynh nhiều lắm