' ''''''''''''
' Title: Copy file to all sub directories, .vbs
' Author: Soft2050
' Date: 6/2/13
' ''''''''''''
File = InputBox("Enter the file you want to copy to")
Directory = InputBox("Enter directory you want the file to be copied to")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set subFolders = objFSO.GetFolder(Directory).Subfolders
For Each subFolder in subFolders
objFSO.CopyFile File, Directory & subFolder.Name & "\"
Next
MsgBox "Done!"
[meh] Yeah! For quick short task like the one stated, its a win -_-Really soft2050? VBS? :P