Const PHOTO_LIST = "ds113_20050622_photos.csv"
Const DESTINATION_FOLDER = "\\moiis06\ArcIMSIntranet$\photos\113\v1\"

Set fso = CreateObject("Scripting.FileSystemObject")

Set list = fso.OpenTextFile(PHOTO_LIST)

While Not list.AtEndOfStream

	src = list.ReadLine()
	
	If Len(src) > 0 Then
		dst = DESTINATION_FOLDER & src
		If fso.FileExists(src) Then
			If fso.FileExists(dst) = False Then
				WScript.Echo "Copying " & src & " --> " & dst
				fso.CopyFile src, dst
			Else
				WScript.Echo "Destination file " & dst & " exists!"
			End If
		Else
			WScript.Echo "Source file: '" & src & "' does not exist!"
		End If
	End If
	
Wend