Fungsi Untuk Menghancurkan File

Di bawah ini merupakan fungsi untuk menghancurkan file. Maksud dari fungsi ini, agar file yang sudah dihapus/dihancurkan, tidak dapat direcover dengan software-software recovery.
Core function dari fungsi penghancur file ini hanyalah 3 line code, yaitu:

Open Filename For Output As #1 
        Print #1, "Sorry, destroyed....." 
Close #1 

Adapun fungsi lengkapnya serta cara penggunaannya:

Option Explicit 
 
Public Function DestroyFile(Filename As String) 
    Open Filename For Output As #1 
        Print #1, "Sorry, destroyed....." 
    Close #1   
End Function 

Cara penggunaan Fungsi Untuk Menghancurkan File

Private Sub Command1_Click() 
    Call DestroyFile("C:\hancur.jpg") 
End Sub 

Di atas merupakan cara penggunaan yang sederhana, dalam kenyataannya Anda dapat memodifikasi penggunaan, sehingga bisa digunakan untuk bulk files destroyer.

READ MORE - Fungsi Untuk Menghancurkan File

Fungsi Untuk Mengganti Extention Sebuah File | Visual Basic 6.0

Mengenai fungsi untuk mengganti extention sebuah file menggunakan kode VB6 - Bagaimanakah cara mengganti sebuah ekstensien pada file tanpa merubah nama file itu sendiri, misalnya file.zip menjadi file.rar atau file.exe.

Public Function ChangeFileExt(ByVal FileName As String, ByVal Extention As String) 
    Dim str() As String, NewFile As String 
    If InStr(1, FileName, ".") Then 
        str = Split(FileName, ".") 
        NewFile = Replace(FileName, str(UBound(str)), Extention) 
        Name FileName As NewFile 
    Else 
        Name FileName As FileName & "." & Extention 
    End If 
End Function 

Adapun cara penggunaan fungsi mengganti extension sebuah file adalah sebagai berikut:

Private Sub Form_Load() 
    Call ChangeFileExt("C:\bo.ot.tmp", "exe") 
End Sub 

READ MORE - Fungsi Untuk Mengganti Extention Sebuah File | Visual Basic 6.0

Mengcopy Seluruh Folder Beserta Isinya - VB6 Source

Berikut merupakan contoh source code untuk mengcopy folder beserta seluruh isi yang terdapat di dalamnya. Menggunakan Microsoft Scripting Runtime. Untuk lebih memudahkan penggunaan Anda dapat merubahnya menjadi Function.

Sumber: http://www.i-bego.com/visual-basic/copy-folder-pada-vb-t3616.html

Private Sub CopyFolder() 
    Dim fso 
    Dim sfol As String, dfol As String 
    sfol = "c:\MyFolder" ' change to match the source folder path 
    dfol = "e:\MyFolder" ' change to match the destination folder path 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    If Not fso.FolderExists(dfol) Then 
        fso.CopyFolder sfol, dfol 
    Else 
        MsgBox dfol & " already exists!", vbExclamation, "Folder Exists" 
    End If 
End Sub 

READ MORE - Mengcopy Seluruh Folder Beserta Isinya - VB6 Source

Module Untuk Memperoleh Nama File, Extension, Path - VB6

Karena bingung memberi judul, akhirnya judulnya seperti di atas. Module ini digunakan untuk memperoleh (return/get) nama dari PathName lengkap, apakah yang akan diambil extensionnya saja, filenamenya saja, path tanpa filename. Adapun kodenya sebagai berikut:

Option Explicit 
 
Public Enum eFilename 
    ExtentionOnly = 0 'contoh .exe, .zip, dll 
    FileNameOnly = 1 'update.exe, notify.exe, file.zip 
    PathNameOnly = 2 'c:\program files\anti virus 
    WithOutExtention = 3 'update, notify (tanpa .exe) 
End Enum 
 
Public Function GetName(Filename As String, str As eFilename) As String 
  Dim vArray As Variant, sDelimiter As String, e As String, v() As String 
  If Filename = "" Then Exit Function 
  Select Case str 
        Case ExtentionOnly 
            sDelimiter = "." 
        Case FileNameOnly 
            sDelimiter = "\" 
        Case PathNameOnly 
            vArray = Split(Filename, "\") 
            GetName = Mid(Filename, 1, Len(Filename) - Len(vArray(UBound(vArray))) - 1) 
            Exit Function 
        Case WithOutExtention 
            vArray = Split(Filename, "\") 
            e = vArray(UBound(vArray)) 
            v() = Split(e, ".") 
            GetName = v(0) 
            Exit Function 
  End Select 
  vArray = Split(Filename, sDelimiter) 
  GetName = vArray(UBound(vArray)) 
End Function 

Contoh penggunaan kode di atas:

Private Sub Command1_Click() 
    msgbox GetName ("C:\Program Files\UI\Update.exe",FileNameOnly) 'jika ingin memperoleh filenamenya saja, dll. 
End Sub

READ MORE - Module Untuk Memperoleh Nama File, Extension, Path - VB6

Membuka File Teks dan Menyimpannya

Mengenai cara membuka file teks dan menyimpannya - Seringkali kita membutuhkan kode untuk membuka file teks dan menyimpannya kembali.

Kode VB6 untuk Membuka File Teks

Private Function OpenFile(FileName As String) As String
    Dim i As Integer
    i = FreeFile
    Open FileName For Input As #i
        OpenFile = Input(LOF(i), i)
    Close #i
End Function

Kode VB6 untuk Menyimpan File Teks

Private Function SaveFile(FileName As String, strText As String)
    Dim i As Integer
    i = FreeFile
    Open FileName For Output As #i
        Print #i, strText
    Close #i
End Function

Demikian kode VB6 untuk menyimpan dan membuka file teks. Semoga bermanfaat.

READ MORE - Membuka File Teks dan Menyimpannya