[VBS] Membuat Common Dialog Save

Dim objCommDialog, FSO, bolSaveResult, objTextFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objCommDialog = CreateObject("SAFRCFileDlg.FileSave")
With objCommDialog
 .FileName="Catatanku.txt"
 .FileType="Text Document"
 bolSaveResult=.OpenFileSaveDlg
 If bolSaveResult Then
  Set objTextFile=FSO.CreateTextFile( .FileName)
  objTextFile.Write "Crowja-Coderz"
  objTextFile.Close
 End If
End With
'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..