QTP Code - File Browser











Sponsored Links:


 Opens a standard dialog which allows the user to choose a file.

































' =============================================================
' function : FileBrowser
' desc : Opens a standard Open File Dialog 
' params : strTitle - the title to apply to the dialog
' strFilter - the filter to apply to the dialog
' returns : The selected file, including path
' =============================================================

Public Function FileBrowser(strTitle, strFilter)

Dim objDialog

' create a common dialog object 
Set objDialog = CreateObject("MSComDlg.CommonDialog")

' set the properties and display the dialog 
With objDialog
    .DialogTitle = strTitle
    .Filter = strFilter
    .MaxFileSize = 260
    .ShowOpen
End With

' return the selected file 
FileBrowser = objDialog.FileName

' destroy the object 
Set objDialog = Nothing

End Function ' FileBrowser
 Source: http://qtphelper.com

No comments: