.:: Jasa Membuat Aplikasi Website,Desktop,Android Order Now..!! | | Order Now..!! Jasa Membuat Project Arduino,Robotic,Print 3D ::.

Hapus semua File Di Folder Dengan Visual Basic

0 komentar


بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh

Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.

Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini

Ketik Coding Berikut ini pada Module Project
Option Explicit

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function

'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String

sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1

Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub

'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub


Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Databasecoding nya seperti dibawah ini
'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory(
"C:\Database\")

'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")


Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com


atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh


Artikel Hapus semua File Di Folder Dengan Visual Basic, Diterbitkan oleh scodeaplikasi pada Kamis, 27 September 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.

Tawk.to