Copy a file from one folder to another using vbscripting

Question

Can anyone please tell me how to copy a file from one folder to another using vbscripting I had tried this below one from the information provide in the internet   dim filesys  set filesys CreateObject  Scripting FileSystemObject    If filesys FileExists  c  sourcefolder anyfile txt   Then  filesys CopyFile  c  sourcefolder anyfile txt    c  destfolder     When I execute this one  I get that the permission is denied

User · Answer

For copying the single file  here is the code   Function CopyFiles FiletoCopy DestinationFolder     Dim fso                 Dim Filepath WarFileLocation                 Set fso   CreateObject  Scripting FileSystemObject                   If  Right DestinationFolder 1   lt  gt    Then                     DestinationFolder DestinationFolder amp                     End If     fso CopyFile FiletoCopy DestinationFolder True                 FiletoCopy   Split FiletoCopy       End Function

User · Answer

Just posted my finished code for a similar project   It copies files of certain extensions in my code its pdf tif and tiff you can change them to whatever you want copied or delete the if statements if you only need 1 or 2 types  When a file is created or modified it gets the archive attribute this code also looks for that attribute and only copies it if it exists and then removes it after its copied so you dont copy unneeded files   It also has a log setup in it so that you will see a log of what time and day evetrything was transfered from the last time you ran the script   Hope it helps   the link is Error  Object Required    39 objDIR  39  Code  800A01A8

User · Answer

Here s an answer  based on  and I think an improvement on  Tester101 s answer  expressed as a subroutine  with the CopyFile line once instead of three times  and prepared to handle changing the file name as the copy is made  no hard-coded destination directory   I also found I had to delete the target file before copying to get this to work  but that might be a Windows 7 thing  The WScript Echo statements are because I didn t have a debugger and can of course be removed if desired   Sub CopyFile SourceFile  DestinationFile       Set fso   CreateObject  Scripting FileSystemObject         Check to see if the file already exists in the destination folder     Dim wasReadOnly     wasReadOnly   False     If fso FileExists DestinationFile  Then          Check to see if the file is read-only         If fso GetFile DestinationFile  Attributes And 1 Then               The file exists and is read-only              WScript Echo  Removing the read-only attribute               Remove the read-only attribute             fso GetFile DestinationFile  Attributes   fso GetFile DestinationFile  Attributes - 1             wasReadOnly   True         End If          WScript Echo  Deleting the file          fso DeleteFile DestinationFile  True     End If       Copy the file     WScript Echo  Copying    amp  SourceFile  amp    to    amp  DestinationFile     fso CopyFile SourceFile  DestinationFile  True      If wasReadOnly Then          Reapply the read-only attribute         fso GetFile DestinationFile  Attributes   fso GetFile DestinationFile  Attributes   1     End If      Set fso   Nothing  End Sub

User · Answer

Please find the below code   If ComboBox21 Value    Delimited file  Then      Const txtFldrPath As String    C  Users 513090 CTS Desktop MACRO        Change to folder path containing text files     Dim myValue2 As String     myValue2   ComboBox22 Value     Dim txtFldrPath As Variant     txtFldrPath   InputBox  Give the file path        Dim CurrentFile As String  CurrentFile   Dir txtFldrPath  amp       amp   LL txt       Dim strLine   As String     Dim LineIndex As Long     Dim myValue As Variant     On Error GoTo Errhandler     myValue   InputBox  Give the DELIMITER        Application ScreenUpdating   False     Application DisplayAlerts   False     While txtFldrPath  lt  gt  vbNullString         LineIndex   0         Close  1          Open txtFldrPath  amp       amp  CurrentFile For Input As  1         Open txtFldrPath For Input As  1         While Not EOF 1              LineIndex   LineIndex   1             ReDim Preserve strLine 1 To LineIndex              Line Input  1  strLine LineIndex          Wend         Close  1          With ActiveWorkbook Sheets myValue2  Range  A1   Resize LineIndex  1               Value   WorksheetFunction Transpose strLine               TextToColumns Other  True  OtherChar  myValue         End With           ActiveSheet UsedRange EntireColumn AutoFit          ActiveSheet Copy          ActiveWorkbook SaveAs xlsFldrPath  amp       amp  Replace CurrentFile    txt     xls    xlNormal          ActiveWorkbook Close False          ActiveSheet UsedRange ClearContents          CurrentFile   Dir     Wend     Application DisplayAlerts   True     Application ScreenUpdating   True  End If

User · Answer

Try this   It will check to see if the file already exists in the destination folder  and if it does will check if the file is read-only   If the file is read-only it will change it to read-write  replace the file  and make it read-only again   Const DestinationFile    c  destfolder anyfile txt  Const SourceFile    c  sourcefolder anyfile txt   Set fso   CreateObject  Scripting FileSystemObject        Check to see if the file already exists in the destination folder     If fso FileExists DestinationFile  Then          Check to see if the file is read-only         If Not fso GetFile DestinationFile  Attributes And 1 Then               The file exists and is not read-only   Safe to replace the file              fso CopyFile SourceFile   C  destfolder    True         Else               The file exists and is read-only               Remove the read-only attribute             fso GetFile DestinationFile  Attributes   fso GetFile DestinationFile  Attributes - 1              Replace the file             fso CopyFile SourceFile   C  destfolder    True              Reapply the read-only attribute             fso GetFile DestinationFile  Attributes   fso GetFile DestinationFile  Attributes   1         End If     Else          The file does not exist in the destination folder   Safe to copy file to this folder          fso CopyFile SourceFile   C  destfolder    True     End If Set fso   Nothing

[vbscript] Copy a file from one folder to another using vbscripting

Examples related to vbscript