Membuat Direktori Baru/Folder Dengan Menggunakan Vb.Net
halo teman blogger semuanya, sudah lama saya tidak pernah nongol lagi di blog ini. mudah-mudahan teman blogger yang berkunjung ke blog saya ini selalu dalam keadaan sehat dan menemukan informasi ataupun tutorial yang mempunyai kegunaan disini, hehe..
sepakat langsung saja gan, sesuai judulnya kali ini saya mau bagikan sedikit tutorial bagaimana caranya untuk membuat sebuah direktori gres atau folder dengan menggunakan VB.Net.
aplikasi ini sangat simple sekali, langsung saja gan tancapppp……
1. Buka Visual Studio agan dan buat sebuah project gres dan langsung desain form ibarat dibawah ini gan..:
2. jikalau sudah kemudian agan masuk ke penggalan coding dan buat sebuah public function dengan nama “Tampilkan Drive” :
Public Function tampilkanDrive() As String() Dim arDrive() As String arDrive = Directory.GetLogicalDrives() Return arDrive End Function
fungsinya code diatas yaitu untuk mengecek drive apa saja yang ada di komputer dan menampungnya lewat variable arDrive.
setelah itu agan buat lagi sebuah public function dengan nama loadDrive :
Sub loadDrive() Dim sDrive As String, sDrives As String() sDrives = tampilkanDrive() For Each sDrive In sDrives Debug.WriteLine(sDrive) Next ComboBox1.Items.AddRange(tampilkanDrive()) End Sub
fungsi dari kode diatas yaitu untuk menampung seluruh drive yang dibuat pada public function TampilkanDrive diatas dan akan ditampilkan pada combobox yang ada di form.
kemudian pada form load tinggal agan panggil kedua fungsi yang dibuat tadi ibarat ini gan :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tampilkanDrive() loadDrive() End Sub
kemudian pada button agan tambahkan code berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("Tentukan Nama Direktori yang akan dibuat", vbExclamation, "Tutorial Blog Guzko") TextBox1.Focus() Exit Sub Else Try Dim path As String = ComboBox1.SelectedItem.ToString & TextBox1.Text If Not Directory.Exists(path) Then Directory.CreateDirectory(path) MsgBox("Direktori " & path & " berhasil dibuat", vbInformation, "Tutorial Blog Guzko") End If Catch ex As Exception MsgBox(ex.Message) End Try End If End Sub
selesai dech gan code programnya, code lengkapnya ibarat ini gan :
Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tampilkanDrive() loadDrive() End Sub Public Function tampilkanDrive() As String() Dim arDrive() As String arDrive = Directory.GetLogicalDrives() Return arDrive End Function Sub loadDrive() Dim sDrive As String, sDrives As String() sDrives = tampilkanDrive() For Each sDrive In sDrives Debug.WriteLine(sDrive) Next ComboBox1.Items.AddRange(tampilkanDrive()) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("Tentukan Nama Direktori yang akan dibuat", vbExclamation, "Tutorial Blog Guzko") TextBox1.Focus() Exit Sub Else Try Dim path As String = ComboBox1.SelectedItem.ToString & TextBox1.Text If Not Directory.Exists(path) Then Directory.CreateDirectory(path) MsgBox("Direktori " & path & " berhasil dibuat", vbInformation, "Tutorial Blog Guzko") End If Catch ex As Exception MsgBox(ex.Message) End Try End If End Sub End Class
setelah selesai, coba agan jalankan kegiatan yang agan buat dan buat sebuah folder baru… hasilnya ibarat dibawah ini gan :
sepakat sekian dulu gan tutorial dari ane, jikalau ada yang samar-samar sanggup langsung komen aja gan..
bagi yang mau download source codenya sanggup melalui link yang telah saya sediakan dibawah.
semoga tutorial ini sanggup memperlihatkan ilham bagi agan….,
seeee uuuuu
Sumber http://guz-kopyok.blogspot.com/