I am trying to copy a file from a storage device to a folder on my c:. The devices comes up in Explorer like "Computer\Nexus 7\Internal storage" with no drive letter. Also if I create a batch file to copy the file over from that location this particular file is hidden in DOS but i can see it in Explorer, R Click copy and paste fine.
Ultimately I would like the user to be able to browse for the location and file and store the path but since it isnt a drive this isnt working.
Private Function BrowseforFile(szDialogTitle As String) As String
On Error GoTo BrowseforFile_Err
With Application.FileDialog(3) '4=msoFileDialogFolderPicker
'.InitialFileName = Me.pastdirectory
If .Show Then Debug.Print .SelectedItems(1)
BrowseforFile = Nz(.SelectedItems(1), "Computer\Nexus 7\Internal storage")
End With
BrowseforFile_RESUME:
'BrowseforFile = .SelectedItems(1)
Exit Function
BrowseforFile_Err_Exit:
Exit Function
BrowseforFile_Err:
Resume BrowseforFile_RESUME
End Function
I have tried all the various file dialog options to return location and/or file name. Then i will need to be able to copy the file to a set location.
Any ideas?