Friday, 15 May 2015

Cara Menjalankan Program lain dengan VB6

 berikut adalah source code cara untuk mengeksekusi atau memanggil program lain atau istilah lain exexcute file .exe dengan vb6

Private Sub Command1_Click()
    Dim Res
    Dim Filename
        Filename = "D:\Kerjaan\New APP\ServerBarcodePP.exe" 'di check dulu apakah filenya ada
    If Dir(Filename) = "" Then
        MsgBox Filename & " not found", vbInformation
    Else
        Res = Shell(Filename, vbHide)
    End If
End Sub

kalo ini mengeksekusi file .jar
Private Sub Command1_Click()
Set WshShell = CreateObject("WScript.Shell")
Dim a
a = "D:\Kerjaan\New APP Retview\ServerBarcodePP.jar"
WshShell.Run "java -jar " & Chr(34) & a & Chr(34) 
End Sub



Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat