bypass file picker?

[techneophyte]

I am using the code below to open the file picker and grab an object. I can then translate the object into Base64 and write it out into an XML file without importing and saving the object. However, in certain cases I already have the path stored in the database and would like to use that path instead of opening the file picker.



is there a way to substitute the path "c:\files\myPDF.pdf" for "fd.SelectedItems(1)" and grab that object without opening the file picker? My goal is to avoid importing the object into a table, but just grab the object and translate it to Base64 then write it out into an XML file.
_______________________________________

Private Sub cmbAddBinaryData_Click()


FilePickerControl = False
'Open the File Picker control
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False
If fd.Show = -1 Then
txtfiletoupload = fd.SelectedItems(1)
End If


Open txtfiletoupload For Binary Access Read As #1

ReDim ByteImage(1 To LOF(1))
Get #1, , ByteImage

Close #1

strData = EncodeBase64(ByteImage)

Me.txtAttBinaryDataPath = txtfiletoupload

FilePickerControl = True

[pbaldy]

It should be fairly simple. To alternatively use a fixed path:

If SomeTestHere Then
  txtfiletoupload = "c:\files\myPDF.pdf"
Else
  Your existing code here
End If

[techneophyte]

thanks Paul....unfortunately that only puts the string itself ("c:\files\myPDF.pdf") into the variable and then only converts the path into the binary data. I need to be able to convert the PDF itself that's at that location into binary.

[pbaldy]

I thought that's what you wanted:

is there a way to substitute the path "c:\files\myPDF.pdf" for "fd.SelectedItems(1)"

Doesn't your existing code just put a path into that variable with this?

txtfiletoupload = fd.SelectedItems(1)

[techneophyte]

Well, that's what I thought too, but the code "txtfiletoupload = fd.SelectedItems(1)" apparently puts the object into the code.

[techneophyte]

you're right Paul!!! I started looking at what else might be causing the error and discovered I had the code "ReDim ByteImage(1 To LOF(1))" in 2 places.....but.....in the 2nd place it was "ReDim ByteImage(1, LOF(1))" (note the comma instead of the "to").

Many thanks for getting me off of my obsessive focus on the "txtfiletoupload = fd.SelectedItems(1)" !!!

[pbaldy]

Ah good, glad it worked. I was rather stumped at what else it could be.