move files from one folder to another

by 
Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String

    Set FSO = CreateObject("Scripting.Filesystemobject")
    SourceFileName = "C:\Users\Jun.xlsx"
    DestinFileName = "C:\Users\Desktop\Jun.xlsx"

    FSO.MoveFile Source:=SourceFileName, Destination:=DestinFileName

    MsgBox (SourceFileName + " Moved to " + DestinFileName)
End Sub

More Related Contents:

  1. Excel Number Separation [closed]
  2. excel vba compare & copy worksheets from 2 excel files
  3. VBA Stuck after certain loop
  4. How to avoid using Select in Excel VBA
  5. Is the . in .Range necessary when defined by .Cells?
  6. How to return a result from a VBA function
  7. Cycle through sub-folders and files in a user-specified root directory [duplicate]
  8. Convert Text to Date?
  9. Loop through each cell in a range of cells when given a Range object
  10. Checking for #N/A in Excel cell from VBA code
  11. Non-web SQL Injection
  12. Properly Handling Errors in VBA (Excel)
  13. Password hash function for Excel VBA
  14. Is there a way to slow down a Web Scraper so it will pick up the code?
  15. Create a folder and sub folder in Excel VBA
  16. Aggregate, Collate and Transpose rows into columns
  17. One-dimensional array from Excel Range
  18. Select method of Range class failed via VBA
  19. Renaming Files with Excel VBA
  20. Is there a way to import data from .csv to active excel sheet?
  21. Comparison of Dictionary, Collections and Arrays
  22. Break out of a While…Wend loop
  23. How to add events to dynamically created controls (buttons, listboxes) in Excel VBA userform
  24. How to make safe API Timers in VBA?
  25. EntireRow.Delete performance issue
  26. Error 1004 when setting Range.Locked
  27. How to extract groups of numbers from a string in vba
  28. Concatenate multiple ranges using vba
  29. How to highlight selected text within excel
  30. How to fix a VBA “type mismatch” error after switching to 64-bit Excel

Leave a Comment