VBA Move File

So you need to end off a procedure by moving a file?
This video shows you how to use the FileSystemObject
and vba to move a file out of one directory into another?

Well, this video shows you how to do it…

Option Compare Database

'========================================================
'DATABASE DESIGNED &amp; CODED BY LOEBLCOM SERVICES 2013
'ERIK LOEBL(713)409-7041
'EMAIL: erik@loeblcomservices.com
'WEB:   http://loeblcomservices.com
'========================================================


Private Sub btnCreateTable_Click()
    Dim strFileName As String
    
    strFileName = &quot;rptAddresses&quot;

    DoCmd.OutputTo acOutputReport, strFileName, acFormatPDF, CurrentProject.Path &amp; &quot;\&quot; &amp; strFileName &amp; &quot;.pdf&quot;
    
    'move file to sent directory
    move_file strFileName
End Sub





Sub move_file(filename)

    Dim objFSO As Object
    'Dim objFSO As FileSystemObject

    

    Dim strFromFile As String
    Dim strToFile As String

    strFromFile = CurrentProject.Path &amp; &quot;\&quot; &amp; filename &amp; &quot;.pdf&quot;
    
    'Your folder needs to be called &quot;complete&quot;
    strToFile = CurrentProject.Path &amp; &quot;\complete\&quot; &amp; filename &amp; &quot;.pdf&quot;
    
    'late binding
    Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
    
    
    'early binding - need library reference to &quot;Microsoft Scripting Runtime&quot;
    'Set objFSO = New FileSystemObject
    
    objFSO.MoveFile strFromFile, strToFile
    
    MsgBox &quot;The folder is moved from &quot; &amp; strFromFile &amp; &quot; to &quot; &amp; strToFile


End Sub