VBA calling vbs file form Program Files, won't call

Question

I currently have the following code to call a vbs file that is in a folder within Program Files. It was originally in a different location (within the same folder) and it would work, but now there is a padlock symbol next to the folder within Program Files, and after changing the location (VBA updated for this as well), it won't call the file. I'm wondering why this is happening.

Sub ChangeThemeBasic()

Dim filespe As String
filespe = "cmd.exe /c C:\Program Files\Theme Changer\ChangeTheme.vbs"
X = Shell(filespe, 1)

End Sub

EDIT:

This works for some reason, I don't know why though:

Sub Test()
Shell "Explorer.exe ""C:\Program Files\Theme Changer\ChangeTheme.vbs""",1
End Sub

what OS version? you may need elevated privileges to access Program Files — Sorceri
– Sorceri, Commented Aug 12, 2014 at 14:40
Well I am sending this code out to some friends as well, and I have a batch file that moves the folder to program files so it is easily accessible. I need to make sure VBA can run the files in it on anyone's computer. I can go into the folder and click the file and it does what I want it to do. But it doesn't seem to read from VBa :/ — art123456
– art123456, Commented Aug 12, 2014 at 14:42
what about using the appdata directory? Environ("AppData") to get the location. — Sorceri
– Sorceri, Commented Aug 12, 2014 at 14:49

Sorceri · Accepted Answer · 2014-08-12 14:52:54Z

1

From comments

Sub ChangeThemeBasic()

Dim filespe As String
filespe = "cmd.exe /c " & Environ("AppData") & "\Theme Changer\ChangeTheme.vbs"
X = Shell(filespe, 1)

End Sub

answered Aug 12, 2014 at 14:52

Sorceri

8,0932 gold badges32 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA calling vbs file form Program Files, won't call

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related