Kamis, 24 Juni 2010

3

[VBS] Membuat Common Dialog Open

  • Kamis, 24 Juni 2010
  • Nurkholish Ardi Firdaus
  • Share
  • 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..
    Related Posts Plugin for WordPress, Blogger...

    3 Komentar Untuk “[VBS] Membuat Common Dialog Open”

    Udayana mengatakan...
    Rabu, 25 Agustus 2010 12.44.00 WIB Reply To This Comment Komentar ini telah dihapus oleh administrator blog.

    Nurkholish Ardi Firdaus mengatakan...
    Jumat, 03 September 2010 13.42.00 WIB Reply To This Comment

    Komentar ini telah dihapus oleh pengarang.


    Nurkholish Ardi Firdaus mengatakan...
    Jumat, 03 September 2010 13.42.00 WIB Reply To This Comment

    Komentar ini telah dihapus oleh pengarang.


    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe