Showing posts with label Files Directory. Show all posts

Monday, December 10, 2012

VB Code - Fungsi Untuk Mendapatkan Directory My Documents

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory My Documents.

'Fungsi untuk mendapatkan directory My Documents:
Function GetDocumentsPath() As String
    GetDocumentsPath = Environ("USERPROFILE") & "\My Documents"
End Function

'Contoh penggunaan Fungsi untuk mendapatkan directory My Documents:
Private Sub Form_Load()
    MsgBox GetDocumentsPath
End Sub

VB6 Code - Mendapatkan Directory Common Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory common files.

'Fungsi untuk mendapatkan directory common files:
Function GetCommonPath() As String
    GetCommonPath = Environ("CommonProgramFiles")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory common files:
Private Sub Form_Load()
    MsgBox GetCommonPath
End Sub

VB6 Code - Mendapatkan Directory Application Data

Di bawah ini merupakan fungsi VB6 untuk mendapatkan Aplication Data atau disingkat dengan AppData.

'Fungsi untuk mendapatkan Aplication Data:
Function GetAppDataPath() As String
    GetAppDataPath = Environ("AppData")
End Function

'Contoh penggunaan fungsi untuk mendapatkan application data:
Private Sub Form_Load()
    MsgBox GetAppDataPath
End Sub

VB6 Code - Mendapatkan Directory All User Profile

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory All User Profile (AllUserProfile)

'Fungsi untuk mendapatkan directory All User Profile
Function GetAllUserPath() As String
    GetAllUserPath = Environ("AllUsersProfile")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory All User Profile
Private Sub Form_Load()
    MsgBox GetAllUserPath
End Sub

VB6 Code - Fungsi Untuk Mendapatkan Directory Temporary

Di bawah ini merupakan Fungsi VB6 untuk mendapatkan directory temporary files tanpa terpengaruh oleh drive tempat Windows berada mis. C:\ D:\ dan seterusnya:

'Fungsi untuk mendapatkan directory temporary
Function GetTempPath() As String
   GetTempPath= Environ("Temp")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory temporary
Private Sub Form_Load()
   MsgBox GetTempPath
End Sub

Fungsi Untuk Mendapatkan Directory System | Visual Basic 6.0

Di bawah ini merupakan Fungsi untuk mendapatkan directory system tanpa terpengaruh oleh drive tempat Windows berada mis. C:\ D:\ dan seterusnya:

'Fungsi untuk mendapatkan directory system
Function GetSystemPath() As String
   GetSystemPath = Environ("WinDir") & "\System32"
End Function

Atau Anda dapat menggunakan fungsi di bawah ini:

'Fungsi untuk mendapatkan directory system
Function GetSystemPath() As String
   GetSystemPath = Environ("SystemRoot") & "\System32"
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory system
Private Sub Form_Load()
   MsgBox GetSystemPath
   'Maka akan ditampilkan C:\Windows\System32 jika Anda menginstall _
   windows pada drive C:\ atau D:\Windows\System32 jika Anda _
   menginstall windows pada drive D:\ dan seterusnya.
End Sub

VB6 Code - Fungsi Untuk Mendapatkan Directory Windows

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory windows tanpa terpengaruh oleh drive tempat Windows berada mis. C:\ D:\ dan seterusnya:

'Fungsi untuk mendapatkan directory windows
Function GetWinPath() As String
   GetWinPath = Environ("WinDir")
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory windows
Private Sub Form_Load()
   MsgBox GetWinPath
   'Maka akan ditampilkan C:\Windows jika Anda menginstall windows pada _
   drive C:\ atau D:\Windows jika Anda menginstall windows pada drive D:\ _
   dan seterusnya.
End Sub

Bagaimana dengan menggunakan fungsi API? bukankah lebih cepat? ehm... pertanyaan yang perlu dipertimbangkan, terutama jika kita menggunakan komputer dengan kecepatan processor di bawah Pentium I semisal DX 386.

Saturday, April 3, 2010

VB6 Code - Mencari Aplikasi Asosiasi Sebuah File

Di bawah ini merupakan fungsi VB6 untuk mencari aplikasi yang diasosiasikan terhadap sebuah file. Bingung? misalnya kita double klik file berektensi .ini maka aplikasinya notepad.exe, double klik file berektensi .doc maka aplikasinya Microsoft Word, dst.

Option Explicit

Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256

Public Function FindExecutable(FileName As String) As String
   Dim iReturn As Integer
   Dim sResults As String
   
   sResults = String(MAX_FILENAME_LEN, 32) & Chr$(0)
   
   iReturn = FindExecutableA(FileName & Chr$(0), vbNullString, sResults)
   
   If iReturn > 32 Then
      FindExecutable = Left$(sResults, InStr(sResults, Chr$(0)) - 1)
   Else
      FindExecutable = ""
   End If
End Function

Contoh penggunaan fungsi untuk mencari assosiasi sebuah file

Private Sub Form_Load()
    MsgBox FindExecutable("c:\boot.ini")
End Sub

VB6 Code - Class Untuk Mengetahui Crc32 Dari Sebuah File

Di bawah ini merupakan class VB6 untuk mengetahui CRC32 dari sebuah file. Untuk keperluan ini copy dan pastekan kode di bawah ini ke dalam class, kemudian ganti nama kelasnya menjadi clsCRC.

Option Explicit

Private crcTable(0 To 255) As Long 'crc32

Private Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
  
  Dim lCurPos As Long
  Dim lTemp As Long
  
  If lLen = 0 Then Exit Function 'In case of empty file
  lTemp = lcrc Xor &HFFFFFFFF 'lcrc is for current value from partial check on the partial array
  
  For lCurPos = 0 To lLen
    lTemp = (((lTemp And &HFFFFFF00) \ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
  Next lCurPos
  
  CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

  Dim I As Long, x As Long, crc As Long
  Const Limit = &HEDB88320 'usally its shown backward, cant  remember what it was.

  For I = 0 To 255
    crc = I
    For x = 0 To 7
      If crc And 1 Then
        crc = (((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF) Xor Limit
      Else
        crc = ((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF
      End If
    Next x
    crcTable(I) = crc
  Next I

End Function

Private Sub Class_Initialize()
  BuildTable
End Sub

Public Function CekCRC32(FileName As String) As String

    Dim lngCrc As Long
    Dim sCrc As Long
    
    On Error GoTo ErrHandler
    
    Open FileName For Binary Access Read As #1
        ReDim tmp(LOF(1)) As Byte
        Get #1, , tmp()
    Close #1

    lngCrc = UBound(tmp)
    lngCrc = CRC32(tmp, lngCrc)
    CekCRC32 = Hex(lngCrc)
    
    Exit Function

ErrHandler:

    MsgBox Err.Description, vbCritical, "Error"

 End Function

Contoh penggunaan Class CRC32

Option  Explicit

Private Sub Form_Load()
    Dim crc As New clsCRC
    MsgBox crc.CekCRC32("C:\boot.ini")
End Sub

VB6 Code - Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi VB6 untuk memindahkan seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit

Public Function MoveAllFiles()
    Dim fso As New FileSystemObject
    Call fso.MoveFolder(Source, Destination)
    Set fso = Nothing
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Call MoveAllFiles("C:\djview", "D:\djview")
End Sub

VB6 Code - Mengcopy Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi VB6 untuk meng-copy seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit

Public Function CopyAllFiles(Source As String, Destination As String)
    Dim fso As New FileSystemObject
    Call fso.CopyFolder(Source, Destination)
    Set fso = Nothing
End Function

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
    Call CopyAllFiles("C:\djview", "D:\djview")
End Sub

VB6 Code - Fungsi Untuk Menghancurkan File

Di bawah ini merupakan fungsi VB6 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.

Tuesday, March 16, 2010

VB6 Code - Menampilkan Explorer Dengan Directory Tertentu

Di bawah ini merupakan fungsi VB6 untuk menampilkan explorer dengan directory tertentu. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:

Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")

Sub Explore(vDir)
    Dim sh As New Shell32.Shell
    sh.Explore vDir
    Set sh = Nothing
End Sub

'Contoh penggunaan
Private Sub Command1_Click()
    Call Explore("C:\")
End Sub

VB6 Code - Fungsi Untuk Membuka Directory Tertentu

Di bawah ini merupakan fungsi VB6 untuk membuka directory tertentu. Karena menggunakan metode Early Binding maka, Untuk keperluan ini Anda harus mereferensi objek "Microsoft Shell Controls And Automation" atau "Shell32.dll" yang biasa terletak pada SystemRoot\System32 (c:\Windows\System32\Shell32.dll).

Jika Anda ingin menggunakan metode Late Binding maka gantilah kode berikut:

Dim Sh as new Shell32.Shell

Menjadi:

Dim Sh as Object
Set Sh = CreateObject("Shell.Application")

Option Explicit

Function OpenPath(vDir)
    Dim sh As New Shell32.Shell
    sh.Open vDir
    Set sh = Nothing
End Function

'Contoh penggunaan
Private Sub Command1_Click()
    Call OpenPath("C:\")
End Sub

Friday, March 12, 2010

VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

Di bawah ini merupakan fungsi VB6 untuk mengisi Listbox dengan seluruh file, maksudnya (karena judul tersebut kurang lengkap) fungsi untuk mengisi ListBox dengan file-file dari sebuah directory yang telah ditentukan.

Fungsi untuk mengisi ListBox dengan seluruh file:

Function LoadFilesToList(FileName As String, lst As ListBox, Optional Attrib As VbFileAttribute)
    Dim sNextFile As String
    sNextFile = Dir$(FileName, Attrib)
    While sNextFile <> ""
        If sNextFile <> "." And sNextFile <> ".." Then
            lst.AddItem sNextFile
        End If
        sNextFile = Dir$
    Wend
End Function

Contoh Penggunaan fungsi untuk mengisi ListBox dengan seluruh file:

Private Sub Command2_Click()
     LoadFilesToList "C:\Windows\System32\*", List1, vbArchive + _
     vbDirectory + vbSystem
    'mengenai vbArchive + vbDirectory + vbSystem optional, boleh _
    diisi atau tidak tergantung kebutuhan
End Sub

VB6 Code - Fungsi Untuk Mengetahui Keberadaan Sebuah Folder

Di bawah ini merupakan fungsi VB6 untuk mengetahui keberadaan folder.

Fungsi untuk mengetahui keberadaan folder:

Function IsFolderExist(FolderName As String) As Boolean
     IsFolderExist = (Dir$(FolderName, vbDirectory) <> "")
End Function

Contoh penggunaan fungsi untuk mengetahui keberadaan sebuah folder:

Private Sub Form_Load()
     MsgBox IsFolderExist("C:\Windows") 'True jika ada
     MsgBox IsFolderExist("C:\Data Asep Hibban") 'False jika tidak ada
End Sub

VB6 Code - Mendapatkan Nama File dari Path Lengkap

Di bawah ini merupakan fungsi VB6 untuk mendapatkan nama file dari path lengkap.

'Fungsi untuk mendapatkan file dari path lengkap:
Public Function GetFileName(FileName As String) As String
    Dim str() As String
    str = Split(FileName, "\")
    GetFileName = str(UBound(str))
End Function

'Contoh fungsi untuk mendapatkan file dari path lengkap:
Private Sub Form_Load()
    MsgBox GetFileName("C:\Program Files\Winamp.exe")
End Sub

VB6 Code - Mendapatkan Ekstensi dari Path Lengkap

Di bawah merupakan fungsi VB6 untuk mendapatkan ekstensi dari path lengkap.

'Fungsi untuk mendapatkan ekstensi dari path lengkap:
Public Function GetExtension(FileName As String)
    Dim str() As String
    str = Split(FileName, ".")
    GetExtension = str(UBound(str))
End Function

'Contoh penggunaan fungsi untuk mendapatkan ekstensi dari path lengkap
Private Sub Form_Load()
    MsgBox GetExtension("c:\mydir\myfile.exe") 'menghasilkan 'exe'
End Sub

VB6 Code - Fungsi Untuk Mendapatkan Directory System

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory system.

'Fungsi untuk mendapatkan directory system:
Function GetSystemPath() As String
    GetSystemPath = Environ("WinDir") & "\System32"
End Function

'Contoh penggunaan fungsi untuk mendapatkan directory system:
Private Sub Form_Load()
    MsgBox GetSystemPath 'menghasilkan C:\Windows\System32 jika windows _
    terinstall pada drive C:\ dan menghasilkan D:\Windows\System32 jika _
    Windows terinstal pada drive D:\ dan seterusnya.
End Sub

VB6 Code - Fungsi Untuk Mendapatkan Directory Program Files

Di bawah ini merupakan fungsi VB6 untuk mendapatkan directory Program Files.

'Fungsi untuk mendapatkan directory Program Files:
Function GetProgramFilesPath() As String
   GetProgramFilesPath = Environ("ProgramFiles")
End Function

'Contoh Fungsi untuk mendapatkan directory program files:
Private Sub Form_Load()
   MsgBox GetProgramFilesPath
   'Maka akan menghasilkan C:\Program Files jika windows Anda terinstall _
   pada drive C:\
   'atau D:\Program Files jika windows Anda terinstall pada drive D:\
   'dan seterusnya.
End Sub

Subscribe to: Posts ( Atom )

Khoiriyyah - Syair Arab Visual Basic 6.0 Blogging