copy a file

[Joe C]

I have a routine that imports a bunch of data into access, to find all the relevant materials.
It then saves atxt file of those materials. I want to copy that txt file to the clipboard so user can save a copy of it where they like as oppsed to the area where my access routine saves it. How would I copy a file to clip (as a file) so when macro ends I will instruct user to paste in the location he chooses.

Many thanks for any help.

 

[shg]

One way:

Sub FileToClipboard()
    ' requires a reference to Microsoft Forms Object Library
    Const sFile As String = "C:\myFile.txt"
 
    With New DataObject
        .SetText File2Str(sFile)
        .PutInClipboard
    End With
End Sub
 
Function File2Str(sFile As String) As String
    ' Adapted from Andy Pope
    ' Returns a text file as a string
    Dim iFF       As Integer
 
    If Len(Dir(sFile)) Then
        iFF = FreeFile
        Open sFile For Binary Access Read As #iFF
        File2Str = Input(LOF(iFF), iFF)
        Close iFF
    End If
End Function