'
' SaveListOfFiles.vbs
' Richard A. DeVenezia, 02/23/2005
' http://www.devenezia.com
'
' Send me some mail if you find this useful.
'
' Purpose: In Explorer, select files and be able to save the names of the files selected.
'          Very useful for saving results of searches.
'

dim ws, list, fso, folder, filename, file

Set ws = CreateObject("WScript.Shell")

list = "Save this list to a permanent file" & vbCrLf & vbCrLf

for each arg in wscript.arguments
  list = list & arg & vbCrLf
next

Set fso = CreateObject("Scripting.FileSystemObject")

filename = fso.GetSpecialFolder(2) & "\Move-and-rename-this-List-of-files.txt"

Set file = fso.CreateTextFile(filename)

file.Write list
file.Close

ws.Run "Explorer /e,/select," & chr(34) & filename & chr(34)