Option ExplicitPrivate Sub Command1_Click() Open "C:\Documents and Settings\Admin\My Documents\Blogger VB6\Blogger\4basic-vb.xml" For Binary As #1 Dim strBuff As String strBuff = Space(LOF(1)) Get #1, , strBuff Close #1 ...
Showing posts with label File-And-Folder. Show all posts
Showing posts with label File-And-Folder. Show all posts
Sunday, June 17, 2012
Cara Mudah Baca File Dan Menyimpannya Dalam Array
Option ExplicitPrivate Sub Command1_Click() Dim strArray() As String Open "c:\autoexec.bat" For Input As #1 strArray = Split(Input(LOF(1), 1), vbCrLf) Close #1End ...
Tutorial File - Membaca, Menghapus Baris Tertentu, dsb
'Kode ini dibuat oleh plenderj salah satu member VBForums'http://www.vbforums.com/showthread.php?s=&threadid=132171' Clear the contents of a filePrivate Sub clearFile(ByVal strPath As String) If Not Len(Dir(strPath)) = 0 Then Open strPath...
Membaca File Dan Memasukannya Ke Dalam Array
Option ExplicitPrivate Sub Command1_Click() Dim L As Long Dim MyArray() As String ' Load file into string array FileToArray "C:\TEST.txt", MyArray ' Reverse array contents ReverseStrArray MyArray ' show result in...
Membaca File Binary atau Text Dengan Cepat
'Kode ini dibuat oleh plenderj salah satu member VBForums'http://www.vbforums.com/showthread.php?s=&threadid=132171' Return a specific line number from a file (note: first line = line number 0)Private Function getLine(ByVal strFile As String, ByVal...
Custom File Untuk Keperluan Import Database
''Gunakan editor terbaik dari Microsoft yakni Notepad''Tulis seperti di bawah ini'1, Description 1 ,1,100.00,3/1/1998'2, Description 2 ,2,200.00,3/2/1998'Simpan dengan nama c:\test.txt.Private Sub Command1_Click() Dim F As Long, sLine As String, A(0...
Memperoleh Icon Asosiasi File Menggunakan SHFileInfo
Option ExplicitPrivate Const SHGFI_DISPLAYNAME = &H200Private Const SHGFI_EXETYPE = &H2000Private Const SHGFI_SYSICONINDEX = &H4000Private Const SHGFI_LARGEICON = &H0Private Const SHGFI_SMALLICON = &H1Private Const ILD_TRANSPARENT...
Menampillkan File Pada Directory Yang Ditentukan
'Judul : Memunculkan file atau sub direktori pada direktori yang ditentukan'Coder : Tongam Tampubolon (Tomero)'Penjelasan : Buat 1 Listbox, 1 CommandButton, Masukkan kode tsb dalam Form1Private Sub Command1_Click() Call ProsesLokasi(List1,...
Membuat Assosiasi Untuk Sebuah File
Option Explicit'==========================================================================' Parameters' Required Extension (Str) ie ".exe"' Required FileType (Str) ie "VB.Form"' Required FileTYpeName (Str) ie. "Visual Basic Form"'...
VB6 Source Code - Membuat Virtual Drive Menggunakan VB6
Mengenai cara membuat Virtual Drive menggunakan Visual Basic 6 - Bagaimanakah cara membuat virtual drive menggunakan VB6 dengan bantuan Command DOS Subst.exe, berikut adalah contohnya: Private Function MountVirtualDrive(vd As String, path As String)...
Thursday, June 14, 2012
App.Path Dalam VB6 Bisa Diganti Dengan Dot Slash
Mengenai App.path dalam VB6 yang bisa kita ganti dengan "./" (dot slash) - Misalnya kita membuat kode seperti ini:Shell App.Path & "\Launcher.exe" bisa kita ganti menjadi Shell "./Launcher.exe" atau Shell "Launcher.exe" tanpa App.path dan "./" (dot...
Tuesday, June 12, 2012
Membaca File Text Baris Per Baris - Visual Basic 6
Dibawah ini merupakan contoh kode untuk membaca file text baris per baris menggunakan VB6 - Adapun kode untuk membaca file text line by line adalah sebagai berikut:Option Explicit Private Function OpenTextFile() As String Dim nFileNum As Integer,...
Friday, June 8, 2012
Mengubah Format DOS 8.3 menjadi Long Filename
Mengubah format DOS 8.3 menjadi long filename, contohnya: G:\PROJEC~1\BILLIN~1\BILLIN~1\Client\CLIENT~1.EXE menjadi: G:\Project-ku\Billing Warnet\Billing Warnet\Client\Client Cafe.exe. Nah bagaimana kode konversi format DOS 8.3 ini, bisa Anda perhatikan...
GetShortPathName - Mengubah Filename Menjadi DOS 8.3 Format
Di bawah ini merupakan kode untuk mengubah nama file menjadi format DOS 8.3 - Contoh: G:\Project-ku\Billing Warnet\Billing Warnet\Client\Client Cafe.exe menjadi: G:\PROJEC~1\BILLIN~1\BILLIN~1\Client\CLIENT~1.EXE. Bagaimana kode mengenai cara mengubah...
Cara Membuat Direktori lebih dari 1 level - (Pengelolaan Fil
Fungsi yang menjelaskan mengenai cara membuat direktori lebih dari satu level, 2, 3 dan seterusnya - Mengenai kode membuat direktori lebih dari 1 level bisa Anda lihat di bawah ini: Option Explicit Private Function CreateDir(strDir As String) As Boolean...
Tuesday, May 29, 2012
PathCompactPathEx - Untuk Menyingkat Nama Path - VB6
Dalam membuat sebuah program, terkadang kita membutuhkan nama path yang disingkat, adapun tujuannya, agar nama yang berada paling akhir dapat kita baca. Lagipula jika path tidak disingkat, mungkin kita akan menemukan MRU (Most Recently Used) seperti...
Memilih Lebih dari Satu File Pada Dialog Open - VB6 Code
Option Explicit Public Function GetFiles(Optional ByVal sTitle As String = "Open files...") As String Dim sFilenames As String Dim cdlOpen As Object On Error GoTo ProcError ' Get the desired name using the common dialog Set cdlOpen = CreateObject("MSComDlg.CommonDialog")...
Menyimpan File Ke Dalam Format MHTML
Menyimpan file dalam format MHTML tentunya memiliki banyak keuntungan, salah satu dari banyak keuntungan tersebut ialah terintegrasinya seluruh gambar dan file dengan baik, sehingga kita bisa mendownload halaman situs/blog yang kita kunjungi utuh dengan...
Mendapatkan Special Folder Menggunakan Visual Basic 6.0
Public Enum SpecialFolderIDs sfidDESKTOP = &H0 sfidPROGRAMS = &H2 sfidPERSONAL = &H5 sfidFAVORITES = &H6 sfidSTARTUP = &H7 sfidRECENT = &H8 sfidSENDTO = &H9 sfidSTARTMENU = &HB sfidDESKTOPDIRECTORY...
Sunday, May 27, 2012
Memindahkan Seluruh File Dalam Satu Directory
Di bawah ini merupakan fungsi 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...
Subscribe to:
Posts
(
Atom
)
