Move files to "history" folder

[Juleew]

I am creating files based upon a database that is updated daily. Each time the file is updated I am moving the older version to a history folder. I don't want to move all files out of the folder just the ones that contain names that are NAMES_NEMS_ & "*.*". I am using the below code without success. I am trying to write code to determine that if there is no file then skip moving the file.

If Dir(\\server\dname\folder\NAMES_NEMS_) <> " " Then
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
FSO.movefile (\\server\dname\folder\NAMES_NEMS_ & "*.*"), HFP

Thanks for any help

 

[Ruddles]

Not tested here but try:-

If Dir([B][COLOR=red]"[/COLOR][/B]\\server\dname\folder\NAMES_NEMS_[B][COLOR=red]*.*"[/COLOR][/B]) <> [COLOR=red][B]""[/B][/COLOR] Then
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
FSO.movefile([B][COLOR=red]"[/COLOR][/B]\\server\dname\folder\NAMES_NEMS_[COLOR=red][COLOR=black]*.*[/COLOR][B]"[/B][/COLOR])[COLOR=#000000], HFP

[/COLOR]
What's HFP? A string variable containing the name of a folder?

 

[Juleew]

Thanks that worked! thanks alot!!