Just an update, I got another to work which follows a similar format to what you proposed (xld):
Yet the previous syntax posted still does not function as intended.strUserDatabasePath = "C:\Users\" & strUserName & "\"
strPath = "\\VirtualServer1\templates\Business Database\Database1.accdb"
If IfFileExist(strPath) Then objFSO.CopyFile strPath, strUserDatabasePath
strPath = "\\VirtualServer1\templates\Business Database\Graphics"
If IfFileExist(strPath) Then objFSO.CopyFolder strPath, strUserDatabasePath
strPath = "\\VirtualServer1\templates\Business Database\Icons"
If IfFileExist(strPath) Then objFSO.CopyFolder strPath, strUserDatabasePath




Reply With Quote
