Copy files on network drive using fso

I had a question opened earlier today about moving a files from one directory to another using a vb script.  The script provided help me on my local drive....but I have additional uses for it.  I modified the variables and tried to process on my network but keep getting an error message that the files are not found. I checked the location of the files and they are there.  I know there is probably a simple error in the changes I made.  I have attached the code for reference.
Sub ArchiveFiles()
    Dim fso As Object
    
    Dim sSourceDir As String
    Dim sTargetDir As String
    
    sSourceDir = "K:\Public\Marketing Secure\Shared\"
    sTargetDir = "K:\Public\Marketing Secure\Shared\Oracle Files\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    fso.movefile Source:="Costs*.xls", Destination:=sTargetDir
    fso.movefile Source:="Status*.xls", Destination:=sTargetDir
    
End Sub

Open in new window

ilrosebud26Asked:
Who is Participating?
 
danaseamanConnect With a Mentor Commented:
Try this:
Sub ArchiveFiles()
    Dim fso As Object
    
    Dim sSourceDir As String
    Dim sTargetDir As String
    
    sSourceDir = "K:\Public\Marketing Secure\Shared\"
    sTargetDir = "K:\Public\Marketing Secure\Shared\Oracle Files\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    fso.movefile Source:=sSourceDir & "Costs*.xls", Destination:=sTargetDir
    fso.movefile Source:=sSourceDir & "Status*.xls", Destination:=sTargetDir
    
End Sub

Open in new window

0
 
ilrosebud26Author Commented:
Thanks, that worked.  I thought I tried to do that but I guess me mind is just not working.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.