| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
I need to change this code to copy All files the "customdoc" folde
Sub FileCopyExample()
Dim sSourcePath As String Dim sTargetPath As String ' Change these paths to your Source and Target paths. sSourcePath = "C:\PNTTEMPL\CustomDoc\CHARM.PCD" sTargetPath = "C:\PNTTEMPL\CustomDoc\TEST\CHARM.PCD" On Error Resume Next ' Copy the file "CHARM.PCD" file from "CUSTOMDOC FOLDER" ' to "TEST FOLDER". FileCopy sSourcePath, sTargetPath If Err 0 Then MsgBox Err.Description End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| change the file open default permanently to "All files" | Excel Discussion (Misc queries) | |||
| change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
| How to use VBA to copy this code to "thisworkbook" objects of all opened workbooks ? | Excel Programming | |||
| Can you "duplicate" "copy" listboxes and code to multiple cells? | Excel Programming | |||
| VBA code to change the Print - "Number of copies" to 3 | Excel Programming | |||
Threaded Mode
