Posted by: pyaradeshbasiharu August 20, 2009
Login in to Rate this Post:
0
?
![](/wysiwyg/editor/images/smiley/msn/thumbs_up.gif)
![10 more flags than likes deactivates post.](/wysiwyg/editor/images/smiley/msn/thumbs_down.gif)
Dim aWSHShell, bWSHShell ,c
Set aWSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Scripts" 'Ur folder path
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
c=objFile.Name 'variable to hold file name
aWSHShell.Run "makefile.exe c -ms "
Next
I don't have a Windows Box ...and haven't tested it ..but if there's any error minor tweak will do the trick..
save the above code with .vbs extension..to execute the code simply right click and open it...
hope it helps u