[VB 6.0] Membuat Tool Unhidden File Sederhana

Pada artikel ini, saya ingin share source code sederhana untuk melakukan unhidden atau menampilkan kembali file yang di hidden atau ter-hidden pada komputer. menggunakan VB 6.

Berikut source code dan cara membuat form nya:

 Tampilan Form

Ubah name dari CommandButton menjadi cmdpulihkan

Source Code nya
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesW" (ByVal lpFileName As Long, ByVal dwFileAttributes As Long) As Long

Public Function Pulihkan(sfile As String)
    SetFileAttributes StrPtr(sfile), 0
End Function

Private Sub cmdpulihkan_Click()
    Pulihkan File1.FileName
    MsgBox File1.FileName + " - sudah dipulihkan", vbInformation, "Berhasil"
End Sub

pada kode diatas, kita memanggil fungsi WinAPI SetFileAttributes pada tool ini.Lalu membuat function dengan nama Pulihkan dengan parameter berupa nama file nya

Tahap Akhir
Compile projectnya..selesai =))

Bagaimana cara kerjanya?

Pertama,anda hanya perlu memilih drive, lalu memilih folder, kemudian akan tampil file-file pada folder tersebut, jika file terlihat pada list tool ini namun tidak muncul di windows explorer anda, berarti file tersebut di hidden, nah anda hanya perlu mengklik file tersebut (dipilih) lalu meng-klik tombol "Pulihkan !!" di atas.

Semoga Bermanfaat

Artikel ini dibuat oleh Yudha Tri Putra sebagai penulis artikel, diperbolehkan menyalin artikel ini secara utuh tanpa mengubah atau menambah isi artikel.