Cara Membuat Hapus dan Ganti Nama Folder dari Daftar

Pada postingan kali ini saya akan membahas mengenai cara membuat hapus dan ganti nama folder dari daftar.

Ketika saya  mulai membuat video untuk mengikuti posting saya di tabel pivot yang disebut 101 Tips dan Trik Tabel Pivot Tingkat Lanjut yang Perlu Anda Ketahui. Saya ingin sedikit terorganisir dan memiliki semua file terkait untuk setiap tips video di foldernya sendiri. Ini berarti membuat 101 folder baru dan kemudian menamainya berdasarkan setiap tips di posting saya.

Melakukan ini secara manual akan menjadi sangat membosankan tugas.

  1. Salin judul tip ke clipboard.
  2. Buka file explorer dan klik kanan untuk membuat folder baru.
  3. Rekatkan nama judul tip ke dalam nama folder
  4. Awalan nama folder dengan”001 – ” karena saya ingin mereka terdaftar di file explorer dalam urutan yang sama dengan posting.
  5. Ulangi langkah 1 hingga 4 seratus kali lagi

Ini bukan jenis tugas yang menurut saya menyenangkan, dan biasanya mendorong saya untuk berpikir “bagaimana saya bisa menghindari melakukan ini?“.

Karena saya sudah memiliki judul tip saya yang terdaftar di lembar Excel, ini adalah tugas yang sempurna untuk sedikit VBA.

Baca Juga:  Pengenalan Rumus Varians Excel: Kupas Tuntas!

Cara Membuat Hapus dan Ganti Nama Folder dari Daftar, yaitu:

1.Membuat Folder dari Daftar

Saya mengatur rentang bernama di lembar saya yang disebut BuatFolderPath sebagai input untuk jalur folder. Di sinilah Anda dapat meletakkan lokasi yang Anda inginkan untuk membuat semua folder Anda.

Saya juga membuat tabel 1 kolom dan menamainya Buat NamaFolder. Tabel ini akan berisi nama semua folder yang ingin saya buat.

Membuat rentang dan tabel bernama untuk input kita hanya akan memungkinkan kita untuk memindahkannya pada lembar tanpa perlu memperbarui referensi di VBA.

Sub MakeFolders()

Dim Folder As Range
Dim FolderPath As String
    
FolderPath = Range("MakeFolderPath").Value
   
On Error Resume Next
   
For Each Folder In Range("MakeFolderNames[Folder Name]")
    MkDir FolderPath & "\" & Folder.Text
Next Folder

End Sub

Ini sedikit sederhana dari VBA. Itu mengulang setiap item dalam daftar nama folder kami dan membuat folder dengan nama itu menggunakan MkDir memerintah. Itu juga melompati kesalahan apa pun yang mungkin terjadi karena sel kosong dalam daftar kami, folder yang sudah ada atau karakter khusus yang tidak diizinkan dalam nama folder.

Baca Juga:  25 Tips dan Trik Tim Microsoft yang Luar Biasa

2.Menghapus Folder dari Daftar

Menghapus semua folder dalam direktori tidak sulit, Anda cukup menyorot semuanya dan tekan Menghapus. Tetapi jika Anda memiliki banyak folder dan Anda hanya ingin menghapus sebagian dari folder tersebut, mungkin akan memakan waktu lama untuk menghapusnya. Anda harus memilih dan menghapus folder satu per satu dalam kasus ini.

Jika Anda memiliki daftar subset folder, maka kami dapat menggunakan VBA untuk menghapusnya dengan cara yang mirip dengan cara kami membuat folder dari daftar.

Rentang bernama untuk membaca jalur disebut HapusFolderPath dan tabel yang berisi daftar nama folder yang akan saya hapus disebut HapusNamaFolder.

Sub DeleteFolders()

Dim Folder As Range
Dim FolderPath As String
    
FolderPath = Range("DeleteFolderPath").Value
    
On Error Resume Next
    
For Each Folder In Range("DeleteFolderNames[Folder Name]")
    RmDir FolderPath & "\" & Folder.Text
Next Folder

End Sub

Ini akan mengulang dan menghapus folder apa pun di daftar saya menggunakan RmDir memerintah. Ini akan melewatkan kesalahan apa pun dari folder yang tidak ada atau sel kosong dalam daftar.

Baca Juga:  Pengertian Pita Excel: Kupas Tuntas!

Namun berhati-hatilah, Anda tidak akan dapat membatalkan ini. Setelah hilang, hilang!

3.Mengganti Nama Folder dari Daftar

Anda mungkin sudah menyiapkan folder tetapi perlu mengganti namanya menjadi beberapa konvensi penamaan baru. Ketika saya sedang menyiapkan folder saya, saya memiliki pemikiran untuk mengawalinya dengan angka termasuk nol di depan sehingga menyortirnya menurut abjad mengaturnya dalam urutan yang saya inginkan.

Rentang bernama untuk membaca jalur disebut Ganti namaFolderPath dan tabel yang berisi daftar nama folder saya dan nama baru yang sesuai disebut Ganti NamaFolderNames.

Sub RenameFolders()

Dim Folder As Range
Dim FolderPath As String
    
FolderPath = Range("RenameFolderPath").Value
    
On Error Resume Next
    
For Each Folder In Range("RenameFolderNames[Original Name]")
    Name FolderPath & "\" & Folder.Text As FolderPath & "\" & Folder.Offset(0, 1).Text
Next Folder

End Sub

Kami menggunakan struktur VBA yang serupa dengan Nama As perintah untuk mengganti nama folder kita. Kami hanya perlu referensi kami Nama baru dan kita bisa melakukannya menggunakan Mengimbangi dari Nama asli karena itu adalah satu kolom di sebelah kanan Nama asli.

Sekali lagi, tidak ada pembatalan di sini, jadi berhati-hatilah!

Tinggalkan komentar