Ok, teman-teman dan bapak-ibu semua, kali ini saya hendak membahas tentang mengutak-atik file dan direktori dengan menggunakan Visual Basic .Net.
Biasanya yang paling sering dibutuhkan pada project .Net anda terkait dengan file dan direktori adalah, menggandakan (copy), menghapus (delete) atau bahkan mengecek apakah file/direktori tersebut sudah ada dalam direktori lain.
Dan langsung saja, dibawah ini mudah-mudahan bisa menjadi jawabanya :
Directory / Folder.
Syntax untuk membuat direktori. Contoh membuat folder "testdir1" :
System.IO.Directory.CreateDirectory("C:\testDir1")
Syntax untuk mengecek apakah folder "testDir1" sudah ada atau belum pada path tertentu :
System.IO.Directory.Exists("C:\testDir1")
Syntax contoh untuk memindahkan folder "testDir2" yang berada didalam folder "C:\testDir1" ke folder "C:\testDir3" :
System.IO.Directory.Move("C:\testDir1\testDir2", "C:\testDir3")
Syntax untuk menghapus folder "testDir1" :
System.IO.Directory.Delete("C:\testDir1")
File.
Syntax untuk memeriksa, apakah file "coba.txt" apakah sudah ada atau belum pada folder "C:\testDir1\" :
System.IO.File.Exists("C:\testDir1\coba.txt")
Syntax untuk mengcopy file dari suatu folder ke folder lain :
System.IO.File.Copy("C:\testDir1\coba.txt", "C:\testDir1\testDir3\coba.txt")
Syntax untuk menghapus file :
System.IO.File.Delete("C:\testDir1\coba.txt")
Jika
kita hendak mencari file berdasarkan ekstensi-nya saja gunakan "*.",
misal mencari file gambar berformat jpg berarti "*.jpg". Contoh :
System.IO.File.Exists("C:\testDir1\*.jpg")
Nah dibawah ini contoh fungsi pengembanganya yaitu Menghitung jumlah File didalam suatu
folder. Perhatikan baik-baik :
Public Function GetFilesCount(ByVal strFolderPath As String) As Integer
Try
Return System.IO.Directory.GetFiles(strFolderPath, "*.jpg", System.IO.SearchOption.AllDirectories).Length
Catch ex As Exception
MsgBox("File tidak ditemukan." & vbCrLf & ex.Message)
End Try
End Function
Try
Return System.IO.Directory.GetFiles(strFolderPath, "*.jpg", System.IO.SearchOption.AllDirectories).Length
Catch ex As Exception
MsgBox("File tidak ditemukan." & vbCrLf & ex.Message)
End Try
End Function
Mudah bukan... ?
Ok, sekian dan terima kasih, semoga bermanfaat.
Tidak ada komentar:
Posting Komentar