Macro Excel - Script VBA untuk Membuat Folder Baru

Bagaimana cara membuat folder baru menggunakan macro atau script VBA? Untuk membuat folder baru menggunakan cara biasa memang sering kita lakukan dan sudah tidak asing lagi. Pada kesempatan kali ini saya akan menjelaskan bagaimana cara membuat tombol perintah untuk membuat folder baru
Ok, langsung saja silakan buat sebuah workbook baru dan klik menu Developer kemudian klik Insert

Silakan lihat juga Script VBA Macro Excel untuk memilih Cell/Range

Jika sudah selesai drag di lembar kerja sehingga akan terbentuk sebuah tombol dan ganti tulisan CommandButton1 menjadi "Buat Folder" kemudian klik kanan dan pilih Assign Macro

Atau bisa juga Anda gunakan Klik kanan View Code

Jika sudah selesai silakan silakan taruh script berikut ini pada module 1

'Membuat Folder Baru
Sub CreateFolder()
Dim fso
Dim strFol As String
strFol = "c:\FolderBaru" ' Lokasi Pembuatan Folder baru
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(strFol) Then
fso.CreateFolder (strFol)
Else
MsgBox strFol & " already exists!", vbExclamation, "Folder Exists"
End If
End Sub

Silakan di cek jika Anda klik tombol "Buat Tombol Baru" maka sebuah folder akan dibuat di drive C

Tweet