[VBS] Membuat Common Dialog Open

Dim objCommDialog,bolCommResult,FSO,Wshell
Set objCommDialog=CreateObject("Useraccounts.Commondialog")
Set FSO = CreateObject("Scripting.Filesystemobject")
Set Wshell=CreateObject("Wscript.Shell")
With objCommDialog
 .Filter="BMP Picture Format|*.bmp|All Files|*.*|"
 .Flags=1
 .InitialDir=FSO.GetParentFolderName(WScript.ScriptFullName)
 bolCommResult=objCommDialog.ShowOpen
 If bolCommResult Then Wshell.Run .FileName,0,true
End With
'(c) 2010 Crowja

Jangan Lupa Komentar Yaa..