请教：在附件中如何双击子窗体在指定IP下新建或打开对应的网络文件夹

附件中双击子窗体id，就能在本地新建或打开相对应的文件夹，如何改语句，双击id能新建或打开指定ip下的网络文件夹。

Private Sub id_DblClick(Cancel As Integer)
Dim path As String
    Dim AA As String
    Dim BB As String
    Dim SS As String
    
    AA = "\资料\" '文件路径
    SS = Me.id '文件名字
    
    path = CurrentProject.path & AA & SS
    
  'MkDir "C:\emule"
  'Shell "explorer.exe """ & AA & """", 1

    If Dir(path, vbDirectory) = "" Then
        BB = MsgBox("资料未建立,是否新建?", 4, "提示")
        Select Case BB
            Case 6 '确认新建
              MkDir path
    
             Case 7 '不新建
        End Select
     Else

        Shell "explorer.exe """ & path & """", 1

     End If
End Sub

点击下载此附件