_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub BrowseButton_Click()
Dim newPath$
 
    On Error GoTo Errorhandler
 
    newPath = Trim(BrowseForPC(Me.hWnd, "Select the WinCC Server", Trim( _
      ServerName.Text)))
    If newPath = "" Then Exit Sub
    If Len(newPath) > 3 Then newPath = newPath & "\"
    ServerName.Text = newPath
    Exit Sub
 
Errorhandler:
End Sub

Public Function BrowseForPC(hwndOwner As Long, ByVal sTitle As String, ByVal _
  sStartPath As String) As String
Dim iNull%
Dim lpIDList As Long
Dim lResult As Long
Dim spath$
Dim udtBI As BrowseInfo
Dim lpSelPath As Long
 
On Error GoTo Errorhandler
 
    With udtBI
        .pIDLRoot = 0
        .hwndOwner = hwndOwner
        .lpszTitle = lstrcat(sTitle, "")
        .lpfnCallback = FARPROC(AddressOf BrowseCallbackProcStr)
        .ulFlags = BIF_BROWSEFORCOMPUTER
        lpSelPath = LocalAlloc(LPTR, Len(sStartPath) + 1)
        CopyMemory ByVal lpSelPath, ByVal sStartPath, Len(sStartPath) + 1
        .lParam = lpSelPath
    End With
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        spath = String$(MAX_PATH, 0)
        lResult = SHGetPathFromIDList(lpIDList, spath)
        Call CoTaskMemFree(lpIDList)
        iNull = InStr(spath, vbNullChar)
        If iNull Then spath = Left$(spath, iNull - 1)
    End If
    'if cancel was pressed, sPath = ""
    BrowseForPC = spath
    Call LocalFree(lpSelPath)
    Exit Function
 
Errorhandler:
End Function