DoCmd.OutputTo Root folder question (Access)

[Neruda]

Hi, the following code seem to work fine if the user picks a folder in the root drive. If they select the root HDD the strPathPDF becomes (eg M:\)

M:\\ProductList .pdf

The file gets created but is it correct?? What am I missing?
Thanks

Private Sub cmdCreatePDF_Click()
    On Error GoTo ErrorHandler
 
    Dim strWHERE As String
    Dim strPathPDF As String
    Dim reportName As String
    Dim fDlg As Object
 
    Set fDlg = Application.FileDialog(4)
 
    If Not IsNull(Me.ctlHomeChild.Form!ProductID) Then
        strWHERE = Me.ctlHomeChild.Form.Filter 'Use the filter from the calling form.
        reportName = "rptProductList"
 
        With fDlg
            .Title = "Select a folder"
            .AllowMultiSelect = False
            .InitialFileName = "C:\"
            If .Show = -1 Then
                strPathPDF = .SelectedItems(1) & "\" & "ProductList.pdf"
 
                Debug.Print strPathPDF
 
                DoCmd.OpenReport reportName, acViewReport, , strWHERE, acHidden
 
                With Reports(reportName)
                    Caption = "Product List Report " & Date
                    .FilterOn = True
                End With
 
                DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, strPathPDF, False, , , acExportQualityPrint
                DoCmd.Close acReport, reportName
 
            End If
        End With
    Else
        Beep
    End If
 
exitSub:
    Exit Sub
ErrorHandler:
    MsgBox "Error No: " & Err.Number & vbNewLine _
         & "Error Details: " & Err.Description & vbNewLine _
         & "Error in Sub: frmProducts_Database\cmdCreatePDF_Click"
    Resume exitSub
 
End Sub

[twinnyfo]

Neruda,

I'm not sure we can answer your question:

Neruda:
The file gets created but is it correct??

We don't know if it is correct. are you getting reports from your users that the files is incorrect? This is where we must start.

[ADezii]

It is because you are appending a Trailing Backslash to the Selected Folder (.SelectedItems (1)) which would not be appropriate should it be the Root Folder (C:\). Insert Lines 180 - 220 to correct this. This Code Segment could be shortened, but I kept it in this format for illustration purposes. Some Code has also been omitted.

100 Dim strPathPDF As String
110 Dim fDlg As Object
 
120 Set fDlg = Application.FileDialog(4)
 
130 With fDlg
140  .Title = "Select a folder"
150  .AllowMultiSelect = False
160  .InitialFileName = "C:\"
170     If .Show = -1 Then
180       If Right$(.SelectedItems(1), 1) = "\" Then
190         strPathPDF = .SelectedItems(1) & "ProductList.pdf"
200       Else
210         strPathPDF = .SelectedItems(1) & "\" & "ProductList.pdf"
220       End If
230     End If
240 End With

[Neruda]

@twinnyfo
Hi What I mean I expected the path to be M:\
But I end up with M:\\
But it seems id does not make much difference, even if the path is M:\\\\\\\ it works just fine. I was just wondering if I was missing something in the code

[Neruda]

I changed it as suggested anyway, thank u ADezii

[ADezii]

You're welcome, good luck with your Project!