Membuat Direktori Baru/Folder dengan Menggunakan VB.Net

halo sobat blogger semuanya, sudah lama saya tidak pernah nongol lagi di blog ini. mudah-mudahan sobat blogger yang berkunjung ke blog saya ini selalu dalam keadaan sehat dan menemukan informasi ataupun tutorial yang berguna disini, hehe..
oke langsung saja gan, sesuai judulnya kali ini saya mau bagikan sedikit tutorial bagaimana caranya untuk membuat sebuah direktori baru atau folder dengan menggunakan VB.Net.
aplikasi ini sangat simple sekali, langsung saja gan tancapppp......

1. Buka Visual Studio agan dan buat sebuah project baru dan langsung desain form seperti dibawah ini gan..:

2. jika sudah kemudian agan masuk ke bagian 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 adalah 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 adalah 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 seperti 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 seperti 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 program yang agan buat dan buat sebuah folder baru... hasilnya seperti dibawah ini gan :

oke sekian dulu gan tutorial dari ane, jika ada yang kurang jelas bisa langsung komen aja gan..
bagi yang mau download source codenya bisa melalui link yang telah saya sediakan dibawah.
semoga tutorial ini bisa memberikan inspirasi bagi agan....,
seeee uuuuu

• DOWNLOAD PROJECT