局域网中访问服务器须用到什么控件，路径怎么写？

Question

在一局域网中有一服务器和N台客户机,工作组:tbhome 服务器名称:server  客户机:pc1
请问如何在客户机上通过vb程序访问服务器的某共享文件夹(E:\共享)?
需要用到什么控件?访问的路径应该怎么写?

Answer 1

'确认有访问共享文件夹的权限
\\server\共享\

Answer 2

请问我能不能用drivelistbox控件让用户自己选择到服务器的路径和用dirlistbox控件显示服务器的文件夹呢？
应该怎么写？

Answer 3

用 windows api 显示目录选择框，可以选择网上邻居中的目录。'---------------------------------------------------
'调用 浏览目录 对话框
'--------------------API声明部分--------------------
'common to both methods
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End TypePrivate Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long) '前面已定义Private Const MAX_PATH = 260
Private Const WM_USER = &H400
Private Const BFFM_INITIALIZED = 1Private Const BFFM_SETSTATUSTEXTA As Long = (WM_USER + 100)
Private Const BFFM_SETSTATUSTEXTW As Long = (WM_USER + 104)Private Const BFFM_ENABLEOK As Long = (WM_USER + 101)
Private Const BFFM_SETSELECTIONA As Long = (WM_USER + 102)
Private Const BFFM_SETSELECTIONW As Long = (WM_USER + 103)Private Declare Function SHSimpleIDListFromPath Lib "shell32" Alias "#162" (ByVal szPath As String) As Long
Private Declare Function LocalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal uBytes As Long) As Long
Private Declare Function LocalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function lstrcpyA Lib "kernel32" (lpString1 As Any, lpString2 As Any) As Long
Private Declare Function lstrlenA Lib "kernel32" (lpString As Any) As LongPrivate Const LMEM_FIXED = &H0
Private Const LMEM_ZEROINIT = &H40
Private Const lPtr = (LMEM_FIXED Or LMEM_ZEROINIT)Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_USENEWUI = &H40'-------------------------------------------
' 目录选择窗(允许指定初始目录)
'-------------------------------------------
Function BrowseForFolder(Optional ByVal sTitle As String, Optional ByVal sSelPath As String, Optional NewFolder As Boolean, Optional ByVal hWndOwner As Long) As String    Dim BI As BROWSEINFO
    Dim pidl As Long
    Dim lpSelPath As Long
    Dim sPath As String * MAX_PATH
    
    If Len(sSelPath) > 0 Then sSelPath = Replace(sSelPath & "\", "\\", "\")
    
    With BI
        .hOwner = hWndOwner
        .pidlRoot = 0
        .lpszTitle = sTitle
        .lpfn = FARPROC(AddressOf BrowseCallbackProcStr)
        
        lpSelPath = LocalAlloc(lPtr, Len(sSelPath))
        MoveMemory ByVal lpSelPath, ByVal sSelPath, Len(sSelPath)
        
        .lParam = lpSelPath
        .ulFlags = IIf(NewFolder, BIF_USENEWUI, BIF_RETURNONLYFSDIRS)
    End With
    
    pidl = SHBrowseForFolder(BI)
    
    If pidl Then
        If SHGetPathFromIDList(pidl, sPath) Then
            BrowseForFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
        End If
        
        Call CoTaskMemFree(pidl)
    End If
    
    Call LocalFree(lpSelPath)
    
    'If cancel was pressed, sPath = ""
    If Len(BrowseForFolder) > 0 Then
        BrowseForFolder = Replace(BrowseForFolder & "\", "\\", "\")
    End IfEnd FunctionPrivate Function BrowseCallbackProcStr(ByVal hWnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long    Select Case uMsg
        Case BFFM_INITIALIZED
    
            Call SendMessage(hWnd, BFFM_SETSELECTIONA, True, ByVal StrFromPtrA(lpData))
            
        Case Else:
    
    End SelectEnd FunctionPrivate Function FARPROC(ByVal pfn As Long) As Long    FARPROC = pfnEnd FunctionPrivate Function StrFromPtrA(ByVal lpszA As Long) As String    Dim sRtn As String
    
    sRtn = String$(lstrlenA(ByVal lpszA), 0)
    Call lstrcpyA(ByVal sRtn, ByVal lpszA)
    StrFromPtrA = sRtnEnd Function

Answer 4

fxy_2002(阿勇) 大哥说的太深奥了，搞不懂！～！能简单些吗？或详细说明一下～？！！！

Answer 5

你把上面的代码粘到一个模块中，然后在需要选择目录的地方调用：mdir=BrowseForFolder("选择目录...", "", False, 0)得到的 mdir 就是用户选择的目录。当然，他可能选择的不是网络目录。如果选择了网络共享目录，返回的字符串类似：?mdir
\XXY\olddoc\picture\

Answer 6

没那么复杂，如下：'引用Microsoft Shell Controls And Automation  
  Private shlShell As Shell32.Shell
  Private shlFolder As Shell32.Folder
  Private Const BIF_RETURNONLYFSDIRS = &H1
  Private Const ssfNETWORK = &H12Private Sub Command1_Click()
      If shlShell Is Nothing Then
          Set shlShell = New Shell32.Shell
      End If
      Set shlFolder = shlShell.BrowseForFolder(Me.hWnd, "请选择服务器共享文件夹", BIF_RETURNONLYFSDIRS, ssfNETWORK)
      If Not shlFolder Is Nothing Then
          MsgBox shlFolder.Items.Item.Path
      End If
End Sub