Vista - Run Exe From a CD with wildcard

Ive created a script that downloads internet updates (exe files) and then
burns then to a cd.

What i Want to do is also burn an autorun that runs a script from the cd
when the cd is inserted and then runs the exe files from the cd.
The problem is the files change name everyday
For example one day it will be sdat5555.exe and then the next sdat5556.exe

Is there any way i can put a wildcard into my script that will search the cd
for any files names starting with sdat and ending in .exe and then install
them?

"Oli M" <OliM@xxxxxx> wrote in message
news:53C7C7AE-346D-4FAA-B82E-917526BA14BD@xxxxxxIn your last paragraph you write "install them". Presumably you mean "run
them" or "execute them". If so then you could get autorun to invoke the
following batch file:

@echo off
for /F "delims=" %%a in ('dir /b /s \sdat*.exe') do "%%a"

Do not retype this batch file - use copy & paste instead!

Thanks very much.

I don't want to do it in a batch file though, as the vbs script I have does
other things as well and I want it all in one script.

Is there anyway of doing that in a vbs script?

"Pegasus [MVP]" wrote:

"Oli M" <OliM@xxxxxx> wrote in message
news:6F3A461D-7D12-45F1-9165-21C0C9307D93@xxxxxxSure - use the File System Object to search all CD folders recursively for
sdat*.exe, then use the Run method to execute the file you find. It's the
same idea but it probably takes ten lines of code instead of one.

Ah ok. One small thing.
I would I got about doing that

What would the ten lines of code be.

Im still a newbie at this

"Pegasus [MVP]" wrote:

"Oli M" <OliM@xxxxxx> wrote in message
news:1ABFE01F-C72A-4B5B-9876-D9A801A7AEA1@xxxxxxI'm intrigued. First you reject a single-line batch file solution (whose
operation is fairly easy to understand), then you request a full VB Script
solution because you do not yet have the experience to write the code in
this language of your choice. This wouldn't be a study course assignment,
would it?

Here is the recursive part of the solution. You must invoke it with
cscript.exe.

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("F:\")
GetFiles(oFolder)

Sub GetFiles(oFldr)
For Each oFile In oFldr.Files
WScript.Echo oFile.path
Next
For Each oSubFolder In oFldr.Subfolders
GetFiles(oSubFolder)
Next
End Sub

You can use it as the basis for the remaining tasks, i.e.
- Pick the files that match your wildcard spec;
- Use the Run method to invoke the executable you found.

You will find everything you need in the downloadable help file
script56.chm. Look for the "left" and "right" functions and for the "run" or
"exec" methods.

Pegasus [MVP] schrieb:[...]Ok, I'll add the the 'find the .exe' sub part of the problem:

Const csCDRoot = "<YourCDRoot>"

Dim oFSO : Set oFSO = CreateObject( "Scripting.FileSystemObject" )
Dim oWSH : Set oWSH = CreateObject( "WScript.Shell" )
Dim oRE : Set oRE = New RegExp
oRE.IgnoreCase = True
oRE.Pattern = "^sdat\d+\.exe$" ' <== sdat5555.exe and then the next sdat5556.exe
ExecCDFiles oFSO.GetFolder( csCDRoot ), oFSO, oRE, oWSH

Sub ExecCDFiles( oFldr, oFSO, oRE, oWSH )
Dim oItem
For Each oItem In oFldr.Files
WScript.Echo "seen ", oItem.Path
If oRE.Test( oItem.Name ) Then
WScript.Echo "match", oItem.Path
End If
Next
For Each oItem In oFldr.Subfolders
ExecCDFiles oItem, oFSO, oRE, oWSH
Next
End Sub

[I admit that I did it mainly to remove those nasty () from Pegasus' code]

Pegasus [MVP] schrieb:[...]Ok, I'll add the the 'find the .exe' sub part of the problem:

Const csCDRoot = "<YourCDRoot>"

Dim oFSO : Set oFSO = CreateObject( "Scripting.FileSystemObject" )
Dim oWSH : Set oWSH = CreateObject( "WScript.Shell" )
Dim oRE : Set oRE = New RegExp
oRE.IgnoreCase = True
oRE.Pattern = "^sdat\d+\.exe$" ' <== sdat5555.exe and then the next sdat5556.exe
ExecCDFiles oFSO.GetFolder( csCDRoot ), oFSO, oRE, oWSH

Sub ExecCDFiles( oFldr, oFSO, oRE, oWSH )
Dim oItem
For Each oItem In oFldr.Files
WScript.Echo "seen ", oItem.Path
If oRE.Test( oItem.Name ) Then
WScript.Echo "match", oItem.Path
End If
Next
For Each oItem In oFldr.Subfolders
ExecCDFiles oItem, oFSO, oRE, oWSH
Next
End Sub

[I admit that I did it mainly to remove those nasty () from Pegasus' code]

"ekkehard.horner" <ekkehard.horner@xxxxxx> wrote in message
news:49E4BEC9.80808@xxxxxxDid you notice that the OP did not contribute a single line of code of his
own? He prefers to get the lot delivered on a platter, free of charge, with
no effort by himself other than holding out his hollow hand.

Pegasus [MVP] schrieb:
[...]Yes, I agree with you; Oli M should be ashamed. But I felt that you had
put some effort/work into the problem that could well be the base for
a complete solution. At least, one can hope that Oli M will add the
'execute' part of the task. If not, perhaps some other person will
chip in some lines of code (just for fun or out of generosity). Then
this topic will end well, even though it started badly.