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...
Showing posts with label Files Directory. Show all posts
Showing posts with label Files Directory. Show all posts
Monday, December 10, 2012
VB Code - Fungsi Untuk Mendapatkan Directory My Documents
READ MORE - VB Code - Fungsi Untuk Mendapatkan Directory My Documents
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Files Directory
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 ProfileFunction GetAllUserPath() As String GetAllUserPath = Environ("AllUsersProfile")End Function'Contoh penggunaan...
Labels:
Files Directory
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 temporaryFunction GetTempPath() As String GetTempPath=...
Labels:
Files Directory
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 systemFunction GetSystemPath() As String GetSystemPath = Environ("WinDir")...
Labels:
Files Directory
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 windowsFunction GetWinPath() As String GetWinPath = Environ("WinDir")End...
Labels:
Files Directory
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,...
Labels:
Files Directory
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 ExplicitPrivate crcTable(0 To 255) As Long 'crc32Private...
Labels:
Files Directory
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 ExplicitPublic Function MoveAllFiles() Dim fso As...
Labels:
Files Directory
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 ExplicitPublic Function CopyAllFiles(Source As String,...
Labels:
Files Directory
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,...
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Controls
,
Files Directory
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 FunctionContoh penggunaan...
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Files Directory
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...
Labels:
Files Directory
Subscribe to:
Posts
(
Atom
)