ACCESS FEED: Bls: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

Minggu, 24 Juni 2012

Bls: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

I was googling and found the answer :

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("RUNDLL32.EXE URL.DLL,FileProtocolHandler " + "D:\NEW\SPP_IRT.doc")
Set objShell = Nothing

Sorry for the semi out of access topics,...
Regards
Hendra

________________________________
Dari: "agesthahendra@ymail.com" <agesthahendra@ymail.com>
Kepada: MS_Access_Professionals@yahoogroups.com
Dikirim: Minggu, 24 Juni 2012 16:15
Judul: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

Hi Everyone...
Maybe this is an semi out of access topic post, but i don't know where to ask this question., so any help would be really appreciated...
I have codes to run every file in our PC, it works in Access VBA,
but how can i run the codes in VBScript (.vbs)..??
here is the codes :

Private Sub Command4_Click()
Dim Fl As Long
Fl = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & "D:\Sample\Test.mde", vbNormalFocus)
End Sub

Thank you for your attention,..

Regards
Hendra

[Non-text portions of this message have been removed]