√ Cara Cek Folder Dan Buat Folder Mengunakan Script Vba Excel

Bagaimana cara cek sebuah folder di suatu drive komputer Anda memakai VBA Excel? dan bagaimana juga cara buat folder bila folder tersebut tidak ditemukan. Pada kesempatan kali ini aku akan banyak sekali coding bagaimana cara cek folder pada drive C dan bagaimana cara buat folder tersebut sehabis pengecekan selesai. Kaprikornus masih tetap pada tutorial excel advanced VBA alias macro.

Langkah pertama silakan Anda buat sebuah UserForm dan satu buah tombol CommandButton, ganti caption dari UserForm tersebut dengan goresan pena "Cek Folder" Kemudian untuk CommandButton silakan gunakan toolbox dan ganti caption nya menjadi "Cek dan Buat". Disini Anda juga dapat mewarnai latar belakang form tersebut sesuai dengan kebutuhan. Desain kira-kira ibarat gambar berikut ini

Setelah Anda final desain form diatas saatnya kali ini menciptakan coding untuk mekanisme CommandButton1 yang sudah diganti captionya menjadi "cek dan buat"

Coding Cek dan Buat Folder

Private Sub CommandButton1_Click()
Dim FolderKu
Set FolderKu = CreateObject("Scripting.FileSystemObject")
If FolderKu.FolderExists("C:\AplikasiKu") Then
    MsgBox "Nama Folder Sudah Ada"
    Else
        FolderKu.CreateFolder ("C:\AplikasiKu")
        MsgBox "Folder Sudah Dibuat"
End If
End Sub

Dari coding diatas bila nama Folder "AplikasiKu"sudah ada maka muncul pecan "Nama FOlder Sudah Ada" tetapi bila nama "AplikasiKu" belum ada di drive C: maka nama folder "AplikasiKu" akan dibuat.

Silakan jalankan userform tersebut lalu klik tombol Cek dan Buat lalu kesannya lihat di drive C apakah sudah ada folder AplikasiKu tersebut.

Demikian sekilas mengenai bagaimana  cara cek folder exist atau belum dan bagaimana cara buat folder pada drive C: biar bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/