Browsing File Paths

[jedel]

Hi All

I have a slight problem with some code I'm working with. I want to go to a specific File path on my system if a field is Null. If the field is not null, then I want to goto the file path specified in the text field.

The Code so Far:

Dim strTemp As String 'For returning if user cancels
Dim strNewPath 'The new path the user selects
Dim strCaption As String ' What we want the box to say

If Not IsNull(Me.imgpath) Then
strTemp = Me.imgpath
Else
strTemp = "C:\"
End If

'strCaption = Me.lblPath1.Caption
strNewPath = BrowseForFile(strTemp, strCaption)

'playsound (strNewPath)

If IsNull(strNewPath) Or strNewPath = "" Or strNewPath = "\" Then
Me!imgpath = strTemp
Else
Me!imgpath = strNewPath
End If

Theoretically, a browse windo should appear at the "C:\" but it doesn't, It goes to the desktop. I've tried nuemerous file paths but everytime it goes to the desktop. Any Suggestions?

Thanks

Jedel

 

[TelcoBT]

I am assuming that 'BrowseForFile' is a function of yours, and it is there that the 'browse window' should appear? If so the code for BrowseForFile would seem to be the problem, not this code.

 

[jedel]

TelcoBT

Thanks for your reply. The BrowseForFile Code is part of the Module in my db. The code is as Follows:

Option Compare Database
Option Explicit

' Declarations for Windows Common Dialogs procedures
Private Type CLTAPI_OPENFILE
strFilter As String ' Filter string
intFilterIndex As Long ' Initial Filter to display.
strInitialDir As String ' Initial directory for the dialog to open in.
strInitialFile As String ' Initial file name to populate the dialog with.
strDialogTitle As String ' Dialog title
strDefaultExtension As String ' Default extension to append to file if user didn't specify one.
lngFlags As Long ' Flags (see constant list) to be used.
strFullPathReturned As String ' Full path of file picked.
strFileNameReturned As String ' File name of file picked.
intFileOffset As Integer ' Offset in full path (strFullPathReturned) where the file name (strFileNameReturned) begins.
intFileExtension As Integer ' Offset in full path (strFullPathReturned) where the file extension begins.
End Type

Const ALLFILES = "All Files"

Private Type CLTAPI_WINOPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustrFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustrData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Const OFN_ALLOWMULTISELECT = &H200
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_FILEMUSTEXIST = &H1000
Const OFN_HIDEREADONLY = &H4
Const OFN_NOCHANGEDIR = &H8
Const OFN_NODEREFERENCELINKS = &H100000
Const OFN_NONETWORKBUTTON = &H20000
Const OFN_NOREADONLYRETURN = &H8000
Const OFN_NOVALIDATE = &H100
Const OFN_OVERWRITEPROMPT = &H2
Const OFN_PATHMUSTEXIST = &H800
Const OFN_READONLY = &H1
Const OFN_SHOWHELP = &H10

Declare Function CLTAPI_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean

Declare Function CLTAPI_GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As CLTAPI_WINOPENFILENAME) _
As Boolean

Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _
(ByVal hwnd As Long, rgb As Long)


Function BrowseForFile(strInitialDir As String, strTitle As String) As String

' Comments : Simple file open routine. For additional options, use GetFileOpenEX_CLT()
' Parameters: strInitialDir - path for the initial directory, or blank for the current directory
' strTitle - title for the dialog
' Returns : string path, name and extension of the file selected
'
Dim fOK As Boolean
Dim typWinOpen As CLTAPI_WINOPENFILENAME
Dim typOpenFile As CLTAPI_OPENFILE
Dim strFilter As String

On Error GoTo PROC_ERR

' Set reasonable defaults for the structure

'strFilter = CreateFilterString_CLT("All Files (*.*)", "*.*", "WAVE Sound Files (*.WAV)", "*.WAV", "WEB Pages (*.HTM)", "*.HTM", "Database Files (*.MDB)", "*.MDB", "JPEG Files (*.JPG)", "*.JPG", "JIFF Files (*.GIF)", "*.GIF", "BITMAP Files (*.BMP)", "*.BMP&quot
strFilter = CreateFilterString_CLT("JPEG Files (*.JPG)", "*.JPG", "WAVE Files (*.wav)", "*.wav", "All Files (*.*)", "*.*", "WEB Pages (*.HTM)", "*.HTM", "Database Files (*.MDB)", "*.MDB", "JIFF Files (*.GIF)", "*.GIF", "BITMAP Files (*.BMP)", "*.BMP&quot

If strInitialDir <> &quot;&quot; Then
typOpenFile.strInitialDir = strInitialDir
Else
typOpenFile.strInitialDir = CurDir()
End If

If strTitle <> &quot;&quot; Then
typOpenFile.strDialogTitle = strTitle
End If

typOpenFile.strFilter = strFilter
typOpenFile.lngFlags = OFN_HIDEREADONLY Or OFN_SHOWHELP

' Convert the CLT structure to a Win structure
ConvertCLT2Win typOpenFile, typWinOpen

' Call the Common dialog
fOK = CLTAPI_GetOpenFileName(typWinOpen)

' Convert the Win structure back to a CLT structure
ConvertWin2CLT typWinOpen, typOpenFile

BrowseForFile = typOpenFile.strFullPathReturned

PROC_EXIT:
Exit Function

PROC_ERR:
BrowseForFile = &quot;&quot;
Resume PROC_EXIT

End Function

Sub ConvertCLT2Win(CLT_Struct As CLTAPI_OPENFILE, Win_Struct As CLTAPI_WINOPENFILENAME)
' Comments : Converts the passed CLTAPI structure to a Windows structure
' Parameters: CLT_Struct - record of type CLTAPI_OPENFILE
' Win_Struct - record of type CLTAPI_WINOPENFILENAME
' Returns : Nothing
'
Dim strFile As String * 512

On Error GoTo PROC_ERR

Win_Struct.hwndOwner = Application.hWndAccessApp
Win_Struct.hInstance = 0

If CLT_Struct.strFilter = &quot;&quot; Then
Win_Struct.lpstrFilter = ALLFILES & Chr$(0) & &quot;*.*&quot; & Chr$(0)
Else
Win_Struct.lpstrFilter = CLT_Struct.strFilter
End If
Win_Struct.nFilterIndex = CLT_Struct.intFilterIndex

Win_Struct.lpstrFile = String(512, 0)
Win_Struct.nMaxFile = 511

Win_Struct.lpstrFileTitle = String$(512, 0)
Win_Struct.nMaxFileTitle = 511

Win_Struct.lpstrTitle = CLT_Struct.strDialogTitle
Win_Struct.lpstrInitialDir = CLT_Struct.strInitialDir
Win_Struct.lpstrDefExt = CLT_Struct.strDefaultExtension

Win_Struct.flags = CLT_Struct.lngFlags

Win_Struct.lStructSize = Len(Win_Struct)

PROC_EXIT:
Exit Sub

PROC_ERR:
Resume PROC_EXIT

End Sub

Sub ConvertWin2CLT(Win_Struct As CLTAPI_WINOPENFILENAME, CLT_Struct As CLTAPI_OPENFILE)
' Comments : Converts the passed CLTAPI structure to a Windows structure
' Parameters: Win_Struct - record of type CLTAPI_WINOPENFILENAME
' CLT_Struct - record of type CLTAPI_OPENFILE
' Returns : Nothing
'
On Error GoTo PROC_ERR

CLT_Struct.strFullPathReturned = Left(Win_Struct.lpstrFile, InStr(Win_Struct.lpstrFile, vbNullChar) - 1)
CLT_Struct.strFileNameReturned = RemoveNulls_CLT(Win_Struct.lpstrFileTitle)
CLT_Struct.intFileOffset = Win_Struct.nFileOffset
CLT_Struct.intFileExtension = Win_Struct.nFileExtension

PROC_EXIT:
Exit Sub

PROC_ERR:
Resume PROC_EXIT

End Sub

Function CreateFilterString_CLT(ParamArray varFilt() As Variant) As String
' Comments : Builds a Windows formatted filter string for &quot;file type&quot;
' Parameters: varFilter - parameter array in the format:
' Text, Filter, Text, Filter ...
' Such as:
' &quot;All Files (*.*)&quot;, &quot;*.*&quot;, &quot;Text Files (*.TXT)&quot;, &quot;*.TXT&quot;
' Returns : windows formatted filter string
'
Dim strFilter As String
Dim intCounter As Integer
Dim intParamCount As Integer

On Error GoTo PROC_ERR

' Get the count of paramaters passed to the function
intParamCount = UBound(varFilt)

If (intParamCount <> -1) Then

' Count through each parameter
For intCounter = 0 To intParamCount
strFilter = strFilter & varFilt(intCounter) & Chr$(0)
Next

' Check for an even number of parameters
If (intParamCount Mod 2) = 0 Then
strFilter = strFilter & &quot;*.*&quot; & Chr$(0)
End If

End If

CreateFilterString_CLT = strFilter

PROC_EXIT:
Exit Function

PROC_ERR:
CreateFilterString_CLT = &quot;&quot;
Resume PROC_EXIT

End Function

Function RemoveNulls_CLT(StrIn As String) As String
' Comments : Removes terminator from a string
' Parameters: strIn - string to modify
' Return : modified string
'
Dim intChr As Integer

intChr = InStr(StrIn, Chr$(0))

If intChr > 0 Then
RemoveNulls_CLT = Left$(StrIn, intChr - 1)
Else
RemoveNulls_CLT = StrIn
End If

End Function

******************************************************

I can't see any code here that points to a file path. Maybe you can see something I can't?

I continued to play with the code and tested the Form and it seemed that the file path worked on records that had not previously been opened. This means that imgPath is not null and that it trying to read the file path from the lblPath1 label.

Hope you could understand this. I'll keep working on it and see what I can find.

On a different aspect to this scenario, if the imgPath field is null, the code will return as an invalid use of null. This is because I am bringing up the image in an unbound image control by placing the following line of code in the OnCurrent Event of the form:

Me.ImagePath.Picture = Me.imgPath

This causes the error. Any thoughts on a work around?