[VB6][DIALOG] Get Dialog Save Path

Deskripsi 
      Mendapatkan string dari dialog save path

How To 
1. Project > Component > Microsoft Common Dialog Control 6.0
2. On menu tools box in left, appear new item "Common Dialog" drag it into Form
3. Drag another item "Button" and "label" into form
4. Double click button1 and write this code


Private Sub button1_Click()
    commondialog1.InitDir = "D:\" 'setup initial directory
    commondialog1.Filter = "Excel Files 2003|*.xls|" & "Excel Files 2007|*.xlsx|" 'Create type extention file
    commondialog1.ShowSave 'Show Save Dialog
    label1.Caption = commondialog1.FileName
End Sub

5. Done, you will get path string when click save, you can use itu to another purpose.