Dear all, I want to copy files from a folder. Basically i i want to copy files if the folder exist. If it does not exist then check another folder. I have 3 folders to look at. The folder name is in date format yymmdd. But i just want to look at for 1st, 2nd or 3rd day of the month only. Basically the flow is like this but i don't know how to create a complete vbscript. If folder yymm01 exist at path: \\servername\sample\ then copy files in it to \\servername\prod\ then exit. else check if folder yymm02 exist at path: \\servername\sample\ then copy files in it to \\servername\prod\ then exit. else check if folder yymm03 exist at path: \\servername\sample\ then copy files in it to \\servername\prod\ then exit. Thanks in advance for any help.
Maybe you can try using CopyFile function. So something like this My.Computer.FileSystem.CopyFile(sourceFileName ,destinationFileName) Im not VB expert, but I hope you will find some more on google
Dear all, I manage to create the script to copy the files but i got error: Object required:" at the highlighted line, char 6. Does anyone know what is wrong with my script? Code: Const ForReading = 1, ForWriting = 2 , ForAppending = 8 Dim objFSO Dim strSortDate Dim strSortDate2 Dim fso Dim file Dim year DIm month strSortDate = DatePart("yyyy",Date) strSortDate2 = DatePart("m",Date) Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") strSortDate = DatePart("yyyy",Date) year = Right(strSortDate,2) strSortDate2 = DatePart("m",Date) If objFSO.FolderExists("\\servername\samplefile\" & year & "0" & strSortDate2 & "01") Then MsgBox("Hello!") objFSO.copyfile file.path,[COLOR=black]\\servername\prod\[/COLOR] & strSortDate & "" & strSortDate2 & "01\" & file.name Else If objFSO.FolderExists("\\servername\samplefile\" & year & "0" & strSortDate2 & "02") Then MsgBox("gotcha!") objFSO.copyfile file.path, \\servername\prod\ & strSortDate & "" & strSortDate2 & "02\" & file.name Else If objFSO.FolderExists[COLOR=black]("\[/COLOR]\servername\samplefile\ & year & "0" & strSortDate2 & "03") Then [COLOR=darkorchid]objFSO.copyfile file.path,[/COLOR][COLOR=plum] [/COLOR][COLOR=darkorchid]\\servername\prod\[/COLOR][COLOR=purple][COLOR=darkorchid]& strSortDate & "" & strSortDate2 & "03\" & file.name[/COLOR] [/COLOR]End if set objFSO = nothing set fSO = nothing End if