Amending code for a file rather than a folder

[Glaswegian]

Hi

I picked up some code from the board for saving and zipping a file - but it's actually for saving a folder. I only understand some of the code and would like to save a file rather than a folder. I changed some of the code to ask for a file(folder) location several times and then stop but it still wants to zip the file.

How do I amend the code to look for a file rather than a folder and also make the routine stop if no file is selected?

Function GetFolderName(Msg As String) As String
' returns the name of the folder selected by the user
Dim bInfo As BROWSEINFO, path As String, r As Long
Dim X As Long, pos As Integer
    bInfo.pidlRoot = 0& ' Root folder = Desktop
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Select a file."
        ' the dialog title
    Else
        bInfo.lpszTitle = Msg ' the dialog title
    End If
    bInfo.ulFlags = &H1 ' Type of directory to return
    X = SHBrowseForFolder(bInfo) ' display the dialog
    ' Parse the result
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal X, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        GetFolderName = Left(path, pos - 1)
    Else
        GetFolderName = ""
    End If
End Function
Sub TestGetFolderName()
Dim oFSObj As Object
tryagain: 'forces folder selection..can't exit
    cnt = cnt + 1
    foldername = GetFolderName("Select a folder")
    If foldername = "" Then
        MsgBox "You didn't select a folder."
        If cnt < 3 Then 'change number of attempts
        GoTo tryagain
      Else
      Set fsoObj = Nothing
      cnt = 0
      MsgBox "A file was not selected."
End If
End If
End Sub

Regards

 

[Glaswegian]

Just wondering if anyone had any ideas?

Regards

 

[anvil19]

Hey Glaswegian

I don't have a copy of the BROWSEINFO class. Is it a Visual Basic, windows or a custom written class?

anvil19

 

[Glaswegian]

Hi Anvil19

I got the code from the board and I'm not sure I understand all of it. I don't know where BROWSEINFO came from.

Sorry if that's not any help but much of the code is way too advanced for me.

Regards