<xmp>UNKNOWN
    '**************************************
    ' Name: Browse For Folder
    ' Description:To offer a standard Browse
    '     r For Folder dialog to your user's
    ' By: A_X_O
    '
    '
    ' Inputs:None
    '
    ' Returns:None
    '
    'Assumes:None
    '
    'Side Effects:None
    'This code is copyrighted and has limite
    '     d warranties.
    'Please see http://www.Planet-Source-Cod
    '     e.com/xq/ASP/txtCodeId.9795/lngWId.4/qx/
    '     vb/scripts/ShowCode.htm
    'for details.
    '**************************************
    
    FolerName = BrowseForFolder("Select Folder", &H4031, &H0011)
    '
    Function BrowseForFolder(strPrompt,intBrowseType,intLocation)
    '
    Dim WShell, strTempFolder
    '
    Set WShell = WScript.CreateObject("Shell.Application")
    '
    On Error Resume Next
    '
    Set strTempFolder = WShell.BrowseForFolder(&H0, strPrompt, intBrowseType, intLocation)
    '
    BrowseForFolder = strTempFolder.ParentFolder.ParseName(strTempFolder.Title).Path
    '
    Set strTempFolder = Nothing
    Set WShell = Nothing
    '
    MsgBox(BrowseForFolder)
    '
    End Function

		</xmp>