chỉ giúp mình code chuyển tên file trong folder (3 người xem)

[nguyencanhhoa1986]

Mình đang có bài toán thế này mong các bạn giải giúp:
Mình có 1 thư mục trong đó chứa nhiều thư mục con, trong mỗi thư mục con có thể chứa từ 1-10 file pdf.
Yêu cầu của bài toán là: đổi tên file pdf = tên thư mục con chứa file pdf đó+ _số thứ tự file pdf trong thư mục đó
ví dụ: trong thư mục 12C có các thư mục con là An, Binh, Dung, Nga...
trong thư mục con An có các file pdf là A1.pdf, B2.pdf
bây giờ mình muốn đổi các file đó thành An_1.pdf, An_2.pdf.
Cảm ơn các bạn!

 

[Maika8008]

Trong các thư mục đó không chứa file định dạng khác ngoài pdf chứ bạn?

 

[nguyencanhhoa1986]

Trong các thư mục đó không chứa file định dạng khác ngoài pdf chứ bạn?

đúng rồi bạn ah

 

[viehoai]

Mình đang có bài toán thế này mong các bạn giải giúp:
Mình có 1 thư mục trong đó chứa nhiều thư mục con, trong mỗi thư mục con có thể chứa từ 1-10 file pdf.
Yêu cầu của bài toán là: đổi tên file pdf = tên thư mục con chứa file pdf đó+ _số thứ tự file pdf trong thư mục đó
ví dụ: trong thư mục 12C có các thư mục con là An, Binh, Dung, Nga...
trong thư mục con An có các file pdf là A1.pdf, B2.pdf
bây giờ mình muốn đổi các file đó thành An_1.pdf, An_2.pdf.
Cảm ơn các bạn!

Mình có làm 1 file này lâu rồi chắc bạn áp dụng được đây. File có phần mở rộng bất kỳ nhé

 

[nguyencanhhoa1986]

Mình có làm 1 file này lâu rồi chắc bạn áp dụng được đây. File có phần mở rộng bất kỳ nhé

Cái code này của bạn chỉ duyệt được từ folder con và tên file mình phải tự đặt vào, còn bài toán của mình muốn chọn từ folder cha thì các file pdf trong các folder con cũng đổi tên theo công thức là : Tên file pdf trong folder con = Tên folder con+ _Số thứ tự file pdf.
Bạn có thể chỉ giúp mình được không? cảm ơn bạn

 

[Maika8008]

Mình đang có bài toán thế này mong các bạn giải giúp:
Mình có 1 thư mục trong đó chứa nhiều thư mục con, trong mỗi thư mục con có thể chứa từ 1-10 file pdf.
Yêu cầu của bài toán là: đổi tên file pdf = tên thư mục con chứa file pdf đó+ _số thứ tự file pdf trong thư mục đó
ví dụ: trong thư mục 12C có các thư mục con là An, Binh, Dung, Nga...
trong thư mục con An có các file pdf là A1.pdf, B2.pdf
bây giờ mình muốn đổi các file đó thành An_1.pdf, An_2.pdf.
Cảm ơn các bạn!

Bạn xem thử nhé. Chắc là ổn.

 

[nguyencanhhoa1986]

Đúng thứ mình cần! Cảm ơn bạn nhé!
Bạn có thể cho mình hỏi thêm đoạn code nào phục vụ việc thêm các chỉ số _1; _2 vào sau tên folder của file pdf không vậy?

 

[babyheomoi]

Mình có sưu tầm file đơn giản trên gpe, của bạn nào không nhớ, nhưng chắc cũng dễ sử dụng! bác thử xem nhé!

 

[nguyencanhhoa1986]

Bạn xem thử nhé. Chắc là ổn.

Đúng thứ mình cần! cảm ơn bạn nhé

Bài đã được tự động gộp: 14/6/21

Mình có sưu tầm file đơn giản trên gpe, của bạn nào không nhớ, nhưng chắc cũng dễ sử dụng! bác thử xem nhé!

cảm ơn bạn

 

[nguyencanhhoa1986]

Bạn xem thử nhé. Chắc là ổn.

Đúng thứ mình cần! Cảm ơn bạn nhé!
Bạn có thể cho mình hỏi thêm đoạn code nào phục vụ việc thêm các chỉ số _1; _2 vào sau tên folder của file pdf không vậy?

 

[viehoai]

Bạn có thể cho mình hỏi thêm đoạn code nào phục vụ việc thêm các chỉ số _1; _2 vào sau tên folder của file pdf không vậy?

fso.CopyFile MyFN, MyFolder & "\" & Right(MyFolder, Len(MyFolder) - InStrRev(MyFolder, "\")) & "_" & k & ".pdf"

Code của Maika8008 thực hiện copy file cũ sang file mới có tên mới, sau đó xóa file cũ. Mỗi lần thế k tăng lên 1 vì vậy file có tên thứ tự tăng dần _1, _2, _3.. đó

 

[Hau151978]

Nếu chỉ đổi tên thì có thể dùng phương thức MoveFile, giả sử trong folder không có file nào có phần mở rộng là ".GPE", code là:

Option Explicit
Sub x()
    Dim fso As FileSystemObject, fd As Folder, fl As File
    Dim i As Long, s As String
    Set fso = New FileSystemObject
    For Each fd In fso.GetFolder(ThisWorkbook.Path).SubFolders
        i = 1
        s = fd.Name
        For Each fl In fd.Files
            If Right(fl.Name, 4) = ".pdf" Then
                fso.MoveFile fl, fd.Path & "\" & s & "_" & i & ".pdf.GPE"
                i = i + 1
            End If
        Next
        For Each fl In fd.Files
            If Right(fl.Name, 4) = ".GPE" Then
                fso.MoveFile fl, fd.Path & "\" & Left(fl.Name, Len(fl.Name) - 4)
            End If
        Next
    Next
End Sub

Code cần duyệt file 2 lần để tránh tên cần đổi lại trùng với file có sẵn.

 

[nguyencanhhoa1986]

fso.CopyFile MyFN, MyFolder & "\" & Right(MyFolder, Len(MyFolder) - InStrRev(MyFolder, "\")) & "_" & k & ".pdf"

Code của Maika8008 thực hiện copy file cũ sang file mới có tên mới, sau đó xóa file cũ. Mỗi lần thế k tăng lên 1 vì vậy file có tên thứ tự tăng dần _1, _2, _3.. đó

Mình cảm ơn các bạn!