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)

Thanks Bill,...very usefully Link...
Regards
Hendra

________________________________
Dari: Bill Mosca <wrmosca@comcast.net>
Kepada: MS_Access_Professionals@yahoogroups.com
Dikirim: Senin, 25 Juni 2012 6:29
Judul: RE: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

Hendra

Take a look at my article on Deploying and updating front end applications at my site. The article includes a VBScript sample.

URL: http://www.thatlldoit.com/Pages/howtosarticles.aspx

Regards,

Bill

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Agestha Hendra
Sent: Sunday, June 24, 2012 12:26 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Bls: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

Thanks Bill,...
I am exploring VBScript to help work with my mde files, but finally the vbs files have to be compiled...(for security reason).
I can copy the FE (for backup, so we don't have to "compact" the FE, renaming and run the FE in Sub folder on secret place on the PC
and so on...i think it much help for our security apps.

I really like this codes : objShell.Run("RUNDLL32.EXE URL.DLL,FileProtocolHandler " + "D:\NEW\SPP_IRT.doc")
with that, we don't have to define what EXE type to open the file,..it can open every files in our PC...
Bill...would you give me an example to use: Set fs = WScript.CreateObject("Scripting.FileSystemObject") like you have posted..?
what do it use for..?...basically i'm beginner in VB codes...
Regards
Hendra

________________________________
Dari: Bill Mosca <wrmosca@comcast.net <mailto:wrmosca%40comcast.net> >
Kepada: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com>
Dikirim: Minggu, 24 Juni 2012 21:26
Judul: RE: [MS_AccessPros] Almost Out Of Topic : Run Codes in VBScript (.vbs)

Hendra

Thanks for posting the solution. I, for one do not think VBScript questions are off-topic. After all, VBA is its kissing cousin. And since I own the group what I say goes. [grin]

As you found out, you have to qualify the CreateObject with WScript. That goes for other objects like FileSystemObject, too.

Ex:

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

Regards,
Bill Mosca,
Founder, MS_Access_Professionals
That'll do IT <http://thatlldoit.com/> http://thatlldoit.com
MS Access MVP
<https://mvp.support.microsoft.com/profile/Bill.Mosca> https://mvp.support.microsoft.com/profile/Bill.Mosca

From: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> [mailto:MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> ] On Behalf Of Agestha Hendra
Sent: Sunday, June 24, 2012 5:53 AM
To: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com>
Subject: 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 <mailto:agesthahendra%40ymail.com> <mailto:agesthahendra%40ymail.com> " <agesthahendra@ymail.com <mailto:agesthahendra%40ymail.com> <mailto:agesthahendra%40ymail.com> >
Kepada: MS_Access_Professionals@yahoogroups.com <mailto:MS_Access_Professionals%40yahoogroups.com> <mailto:MS_Access_Professionals%40yahoogroups.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]

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

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

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

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