Browse for file and save in default directory

[mcaliebe]

I have a form which I am using to set up details for new parts. I want the ability to browse for a drawing on my hard drive, once located, copy it to the default drawing folder that will remain with the database.


I will also need to save the file name in the details table so I can reopen it when necessary.

Can someone offer a suggestion?

[orange]

This link and the sample database may be a good starting point.
Good luck.

[mcaliebe]

I don't see this working. There is nothing in the database about browsing for a file. I need the ability to brows for a file, and save it in the default directory of the database. As well, I need to record the file name so it can be retrieved when the record is brought back up.

I found the code to fire off the file picker, and it will return the path of the file in its current location, however I need to do the following with the file

File path: "C:\somedirectory\file.pdf

Copy file.pdf to my default directory "C:\MyDatabase\MyStoredFiles"
Record the file name "file.pdf" to my table

[Paul1]

You can browse for a file using the Application.FileDialog(msoFileDialogFilePicker) function from the office library.
See http://www.minnesotaithub.com/2013/0...cess-with-vba/

[mcaliebe]

You can browse for a file using the Application.FileDialog(msoFileDialogFilePicker) function from the office library.
See http://www.minnesotaithub.com/2013/0...cess-with-vba/

Yes- I have this in my module to open and pick a file name, but I don't know how to copy or upload it to the database directory which I will store these files in.

[orange]

mcaliebe,
Sorry for the link I provided. It was the starting link to a thread dealing with images and the file system. It is not really relevant to your needs.

The link provided by Paul1 handles the file dialog.
A Link to move/copy a file to a specific directory

Good luck.

[ssanfu]

I have a form which I am using to set up details for new parts. I want the ability to browse for a drawing on my hard drive, once located, copy it to the default drawing folder that will remain with the database.
I will also need to save the file name in the details table so I can reopen it when necessary.

Can someone offer a suggestion?

Maybe this will help.

Step 1: Orange and Paul1 have provided links to code to select a file. Use a file picker and save the path and file name to a variable.
Step 2: Hard code the default drawing folder or use the folder picker to select the folder to save the file into (use a variable).

The rest is all in code...

Step 3: Use the "FileSystemObject.CopyFolder" command to copy the file to the default drawing folder
Step 4: Insert a new record or update a current record with the file name (and the path).


All of these step would/could be in one sub.... in a button click event....

[mcaliebe]

Thanks fore everyone's help. I was able to use the information here to provide a viable solution.

[orange]

Since you have a viable solution, it may be useful to others if you could post same.

[mcaliebe]

These are the two functions I used. I still need to refine them to add the error traps as well as verification of copy and some feedback, but the process is working.

Function selectFile()
Dim fd As FileDialog, FileName As String
Dim PrintPath As String
Dim PrintItem As String
Debug.Print

 
On Error GoTo ErrorHandler
 
Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
fd.AllowMultiSelect = False
 
If fd.Show = True Then
    If fd.SelectedItems(1) <> vbNullString Then
        FileName = fd.SelectedItems(1)
    End If
Else
    'Exit code if no file is selected
    End
End If
 
'Return Selected FileName
selectFile = FileName
PrintPath = GetDBPath & "Prints\"
PrintItem = Forms!frmItemDetail!txtItemNbr
Call CopyFile(FileName, PrintPath, PrintItem)
Set fd = Nothing
Exit Function
 
ErrorHandler:
Set fd = Nothing
MsgBox "Error " & Err & ": " & Error(Err)
 
End Function
 
 Function CopyFile(FullFileName, ToFolderName, PartID)
'' requires reference to Microsoft Scripting Runtime Library
    Dim db          As DAO.Database
    Dim rs          As DAO.Recordset
    Dim td          As DAO.TableDef
    Dim fs          As Scripting.FileSystemObject
    Dim folder      As Scripting.folder
    Dim file        As Scripting.file
    Dim FileName    As String
    Dim FileFolder  As String
Debug.Print
'On Error GoTo Err_Proc
    Set db = CurrentDb()
    Set fs = CreateObject("Scripting.FileSystemObject")
    FileName = Mid(FullFileName, InStrRev(FullFileName, "\") + 1)
   
    fs.CopyFile Source:=FullFileName, Destination:=ToFolderName
Forms!frmItemDetail!txtPrint = FileName
Forms!frmItemDetail!txtPrintPath = FullFileName

'     Open recordset which will be used to add rows
'    Set td = db.TableDefs!tblRefDocs
'    Set td = db.TableDefs!tblTempItemDetails
'    Set rs = td.OpenRecordset(dbOpenDynaset, dbSeeChanges)
'        add to reference docs table
'            rs.AddNew
'                rs!PartID = PartID
'                 rs!Print = FileName
'                rs!FolderName = FileFolder
'                rs!UpdatedBy = Forms!frmLogin!txtNetworkID
'                rs!UpdatedDT = Now()
'                rs!LoggedDate = Now()
'
'            rs.Update
End Function