Sebagai programer atau calon programer VB, mungkin Anda pernah bertanya apakah kita dapat membuat folder baru melalui form?. Selain itu apakah kita juga dapat menghapus folder melalui form?.Jawabannya tentu bisa
Tip berikut ini akan membantu Anda untuk membuat suatu aplikasi yang dilengkapi dengan fasilitas untuk membuat folder baru ataupun menghapus folder lama yang sudah tidak dibutuhkan lagi.
Berikut ini adalah langkah-langkah pembuatan contoh sederhananya
Cara Membuat Form Untuk Membuat dan Menghapus Folder di VB6
- Buka Form baru, kemudian tambahkan 2 CommandButton didalam Form
- Ubah properti Caption untuk Command1 menjadi "BUAT FOLDER BARU" dan untuk Command2 ubah Captionnya menjadi "HAPUS FOLDER"
- Desainlah form seperti gambar dibawah ini :
 |
| Desain Form |
- Setelah medesain form selesai, bukalah jendela kode, lalu ketikan kode dibawah ini :
Private Function FolderExists(path) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
FolderExists = True
Else
FolderExists = False
End If
End If
End Function
Private Function NewFolder(path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
MsgBox "Folder tersebut sudah ada"
Else
fso.CreateFolder (path)
End If
End If
End Function
Private Function DeleteFolder(path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
fso.DeleteFolder (path)
Else
MsgBox "Folder tersebut tidak ada"
End If
End If
End Function
Private Sub Command1_Click()
x = InputBox("Lokasi dan nama folder baru :")
NewFolder (x)
End Sub
Private Sub Command2_Click()
y = InputBox("Lokasi dan nama folder yang akan dihapus:")
DeleteFolder (y)
End Sub
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
FolderExists = True
Else
FolderExists = False
End If
End If
End Function
Private Function NewFolder(path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
MsgBox "Folder tersebut sudah ada"
Else
fso.CreateFolder (path)
End If
End If
End Function
Private Function DeleteFolder(path)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
fso.DeleteFolder (path)
Else
MsgBox "Folder tersebut tidak ada"
End If
End If
End Function
Private Sub Command1_Click()
x = InputBox("Lokasi dan nama folder baru :")
NewFolder (x)
End Sub
Private Sub Command2_Click()
y = InputBox("Lokasi dan nama folder yang akan dihapus:")
DeleteFolder (y)
End Sub
Untuk mencobanya silahkan jalankan dengan F5 jika berhasil silahkan lanjut ke langkah dibawah ini untuk menguji :
Sekarang yang perlu Anda ketahui adalah cara menuliskan Lokasi Drive dan Nama Folder yang akan dibuat atau dihapus.
Sebagai contoh misalnya kita akan membuat folder baru di Drive C dengan nama LATIHAN ,langkah-langkahnya adalah sebagai berikut :
- Klik tombol "BUAT FOLDER BARU" yang sudah kita jalankan tadi
- Setelah itu akan muncul sebuah InputBox untuk memasukan Lokasi Drive dan Nama Folder baru
Syntax penulisan lokasi dan nama folder adalah seperti berikut :
Nama_Drive:\Nama_Folder
Semuanya ditulis tanpa menggunakan spasi
Jadi untuk contoh diatas, Lokasi dan Nama Folder baru harus dituliskan seperti berikut :
C:\LATIHAN
Jika fplder dengan nama "LATIHAN" sebelumnya sudah ada di komputer Anda pada Drive C, maka kan tampil pesan "Folder tersebut sudah ada"
Untuk menghapus folder, langkah-langkahnya sama dengan membuat folder baru. Jika folder yang akan dihapus tidak ada maka akan muncul pesan "Folder tersebut tidak ada"
Demikianlah cara membuat form untuk membuat dan menghapus folder, semoga trik ini bermanfaat buat kita semua dan dapat menamah wawasan kita di dunia pemograman.
No comments:
Post a Comment