Posted on 2008-11-17
i have a vb script that i am trying to move files from one directory to another. i have a text file that contains the files i need to copy. my problem is the extension are not listed in the text file. so i thought that i could concantenate the extensions with & "*.*" i get the error (object doesn't support this property).
Dim objShell, objFSO, objFile
Dim strCopyFrom, strfolderName, strCopyTo
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strCopyFrom = "d:\\cadd\pdf manuals"
strCopyTo = "d:\\cadd\pdf manuals\ProductInspection"
'on error resume next
Set objFile = objFSO.OpenTextFile("d:\cadd\pdf manuals\manual.txt")
objfile = objFile & "*.*"
Do While not objFile.AtEndOfStream
strFolderName = objFile.Readline
objFSO.copyFile strCopyFrom & "\" & strFolderName, strCopyTo & "\" & strFolderName