0 out of 1 rated this helpful - Rate this topic

Application.CopyFile Method

Office 2007

Copies a file from a specified location into a Microsoft Outlook store.

Syntax

expression.CopyFile(FilePath, DestFolderPath)

expression A variable that represents an Application object.

Parameters

Name	Required/Optional	Data Type	Description
FilePath	Required	String	The path name of the object you want to copy.
DestFolderPath	Required	String	The location you want to copy the file to.

Return Value
An Object value that represents the copied file.

Example

The following Visual Basic for Applications (VBA) example creates a Microsoft Excel worksheet called 'MyExcelDoc.xlsx' and then copies it from the user's hard drive to the user's Inbox.

Visual Basic for Applications

Visual Basic for Applications
`Sub CopyFileSample() Dim strPath As String Dim ExcelApp As Object Dim ExcelSheet As Object Dim doc As Object Set ExcelApp = CreateObject("Excel.Application") strPath = ExcelApp.DefaultFilePath & "\MyExcelDoc.xlsx" Set ExcelSheet = ExcelApp.Workbooks.Add ExcelSheet.ActiveSheet.cells(1, 1).Value = 10 ExcelSheet.SaveAs strPath ExcelApp.Quit Set ExcelApp = Nothing Set doc = Application.CopyFile(strPath, "Inbox") End Sub`

Sub CopyFileSample()
    Dim strPath As String
    Dim ExcelApp As Object
    Dim ExcelSheet As Object
    Dim doc As Object
    
    
    Set ExcelApp = CreateObject("Excel.Application")
    strPath = ExcelApp.DefaultFilePath & "\MyExcelDoc.xlsx"
    Set ExcelSheet = ExcelApp.Workbooks.Add
    ExcelSheet.ActiveSheet.cells(1, 1).Value = 10
    ExcelSheet.SaveAs strPath
    ExcelApp.Quit
    Set ExcelApp = Nothing
    Set doc = Application.CopyFile(strPath, "Inbox")
End Sub

Community Additions

ADD