Open File Dan Save File Visual Basic 6 Pro

caranya hampir sama dengan posting saya yang ini cara membuat Open File/Directory VB6
tetapi saya pada posting kali ini membagi source code dengan lebih bagus lagi untuk para agan pecinta visual basic 6
berikut tutorialnya :
1. Tambahkan CommonDialog(Micorost CommonDialog(sp3)/(sp6)).
dengan cara CTRL+T pada Visual Basic 6
2. Tambahkan CommandButton


pertama tambahkan CommandButton
lalu double klik pada CommandButtonakan terlihat Source Code berikut :
Private Sub Command1_Click()
'isikan source code disini
End Sub

jika dengan cara manual untuk memasukkan source code maka klik Form lalu pilih view code dan masukkan kode berikut :
Private Sub Command1_Click()
On Error Resume Next
sTempDir = CurDir    'directory aktif saat ini
CommonDialog1.DialogTitle = "Select a directory" 'judul directory
CommonDialog1.InitDir = App.Path 'memulai dari directory bisa di ganti dengan C: , D: etc
CommonDialog1.FileName = "Choose File"  'buat dinamebox
CommonDialog1.Flags = cdlOFNNoValidate + cdlOFNHideReadOnly
CommonDialog1.Filter = "Directories|*.~#~" 'mengatur format file
CommonDialog1.CancelError = True 'allow escape key/cancel
CommonDialog1.ShowSave   'show the dialog screen

If Err <> 32755 Then    ' User didn't chose Cancel.
    sMyNewDirectory = CurDir
    MsgBox ("Directory selected: " & sMyNewDirectory)
End If

ChDir sTempDir  'restore path to what it was at entering
End Sub

Thank's for reading the articelOpen File Dan Save File Visual Basic 6 Pro .If You want to copy paste your website please tag my link Open File Dan Save File Visual Basic 6 Pro Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/11/open-file-visual-basic-6-pro.html">Open File Dan Save File Visual Basic 6 Pro</a>