Selasa, 02 Agustus 2011

Show Properties Of File/Directory VB6

Berikut ini adalah cara menampilkan informasi suatu file atau folder/direktori (properties) mengenai tanggal dibuat (date created), ukuran (size), nama (name), lokasi (location), dan tipe (type). di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Sub Command1_Click()

            'Ganti "C:\My Documents\WP112001\") di bawah
            'dengan nama folder/direktori atau file yang
            'Anda inginkan untuk ditampilkan informasinya...
            Call ShowFolderInfo("C:\My Documents\WP112001\")

          End Sub

          Sub ShowFolderInfo(foldername)
          On Error GoTo Pesan

             Dim fs, f, s, k, l, m, n, o
             Set fs = CreateObject("Scripting.FileSystemObject")
             Set f = fs.GetFolder(foldername) 'Direktori
             'Untuk info file, ganti GetFolder dengan GetFile...
             'Set f = fs.GetFile(foldername)  'File

             s = f.DateCreated  'Tanggal dibuat
             k = f.Size         'Ukuran isi folder/file
             l = f.Name         'Nama folder/file ybt
             m = f.Path         'Nama path lengkap (lokasi)

             n = f.Type         'Apakah folder atau file...
             'Tampilkan informasi folder/file...
             MsgBox "Tanggal & Jam dibuat: " & Format(s, "dd/mm/yyyy hh:mm:ss") & "" & vbCrLf & _
                    "Ukuran = " & Format(k, "#,#") & " byte(s)" & vbCrLf & _

                    "Nama folder/file = " & l & "" & vbCrLf & _
                    "Path lengkap = " & m & "" & vbCrLf & _
                    "Type = " & n & "", vbInformation, _
                    "Informasi File/Folder: " & foldername
             Exit Sub

          Pesan:   'Kemungkinan jika terjadi error...
            Select Case Err.Number
                   Case 76
                        MsgBox "Direktori atau file tidak ada!", _

                               vbCritical, "Error"
                   Case Else
                        MsgBox Err.Number & " - " _
                               & Err.Description

            End Select
          End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Ditulis Oleh : Wahyu Aji // 17.44
Kategori:

0 komentar:

Posting Komentar