当前位置:首页 » 手机软件 » vbnet网络文件共享
扩展阅读
网络安全学报内容 2025-01-25 03:49:44
手机p图美白软件哪个好 2025-01-25 03:45:28
5188网站要多少钱 2025-01-25 03:29:40

vbnet网络文件共享

发布时间: 2023-01-14 10:23:36

A. vb.net 如何访问文件的详情信息

什么IIS架构。晕~~~
1.首先正式版本的发布你必须要Release,不要直接把Debug程序放上去。
2.将所有的.cs文件删除。vs.net有一个很方便的工具,“项目——复制项目”就ok了。
3.windows server2003上一定要安装了"Internet 信息服务(IIS)管理器",如果没有安装的话可以到“控制面板——添加或删除程序——添加\删除WINDOWS组件——应用程序服务器”如果“应用程序服务器”没有构选的话钩上,放入windows 2003的系统盘安装。
4.安装完成之后把项目靠到服务器上。简单一点的方法是右键点击项目文件夹,Web共享——共享文件夹。此时就算发布成功了。不过还有一些细节需要注意。如:IIS匿名访问等。那就是另外的问题了。呵呵。IIS设置很简单,可以在网上找些资料。

B. VB高手进,用VB实现bat文件的net use那样的功能

WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError 获取网络错误的扩展错误信息
WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称
WNetGetUser 获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程

1.WNetAddConnection

VB声明
Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
说明
创建同一个网络资源的永久性连接
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpszNetPath String,要连接的网络名
lpszPassword String,可选的一个密码。如为vbNullString,表示采用当前用户的默认密码。如为一个空字串,则不用任何密码
lpszLocalName String,资源的本地名称。(例如,F: 和 LPT1:)

2.WNetAddConnection2

VB声明
Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
说明
创建同一个网络资源的连接
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpNetResource NETRESOURCE,在这个结构中设置了下述字段,对要连接的网络资源进行了定义:dwType, lpLocalName (可为 vbNullString), lpRemoteName, lpProvider (设为 vbNullString 表示用默认提供者)。该结构的其他所有变量都会被忽略
lpPassword String,可选的一个密码。如为vbNullString,表示采用当前用户的默认密码。如为一个空字串,则不用任何密码
lpUserName String,用于连接的用户名。如为vbNullString,表示使用当前用户
dwFlags Long,设为零;或指定常数CONNECT_UPDATE_PROFILE,表示创建永久性连接

3.WNetAddConnection3

VB声明
Declare Function WNetAddConnection3& Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hwnd As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long)
说明
创建同一个网络资源的连接。这个函数与WNetAddConnection2类似,只是它允许我们为这个函数显示的对话框指定一个物主窗口
返回值
Long,
参数表
参数 类型及说明
hwnd Long,指定一个窗口句柄,用作本函数创建的对话框的父窗口
lpNetResource NETRESOURCE,在这个结构中设置了下述字段,对要连接的网络资源进行了定义:dwType, lpLocalName (可为 vbNullString), lpRemoteName, lpProvider (设为 vbNullString 表示用默认提供者)。该结构的其他所有变量都会被忽略
lpPassword String,可选的一个密码。如为vbNullString,表示采用当前用户的默认密码。如为一个空字串,则不用任何密码
lpUserName String,用于连接的用户名。如为vbNullString,表示使用当前用户
dwFlags Long,设为零;或指定常数CONNECT_UPDATE_PROFILE,表示创建永久性连接

4.WNetCancelConnection

VB声明
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
说明
结束一个网络连接
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpszName String,已连接资源的远程名称或本地名称
bForce Long,如为TRUE,表示断开连接(即使连接的资源上正有打开的文件或作业)

5.WNetCancelConnection2

VB声明
Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long
说明
结束一个网络连接
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpszName String,已连接资源的远程名称或本地名称
dwFlags Long,设为零或CONNECT_UPDATE_PROFILE。如为零,而且建立的是永久性连接,则在windows下次重新启动时仍会重新连接
fForce Long,如为TRUE,表示强制断开连接(即使连接的资源上正有打开的文件或作业)

6.WNetCloseEnum

VB声明
Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long
说明
结束一次枚举操作
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
hEnum Long,由 WNetOpenEnum函数返回的一个枚举句柄

7.WNetConnectionDialog

VB声明
Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long
说明
启动一个标准对话框,以便建立同网络资源的连接
返回值
Long,零表示成功。如用户取消了操作,则返回-1。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
hwnd Long,指定要成为对话框父窗口的一个窗口的句柄
dwType Long,设成RESOURCETYPE_DISK,浏览磁盘资源

8.WNetDisconnectDialog

VB声明
Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long
说明
启动一个标准对话框,以便断开同网络资源的连接
返回值
Long,零表示成功。如用户取消了操作,则返回-1。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
hwnd Long,指定要成为对话框父窗口的一个窗口的句柄
dwType Long,设成RESOURCETYPE_DISK 或 RESOURCETYPE_PRINT,决定要断开的是磁盘还是打印机资源

9.WNetEnumResource

VB声明
Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long
说明
枚举网络资源
返回值
Long,零表示成功。ERROR_NO_MORE_ITEMS表示不剩下可以枚举的条目。ERROR_MORE_DATA表示条目不能装入lpBuffer。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
hEnum Long,从WNetOpenEnum函数返回的一个句柄
lpcCount Long,最初设为要枚举的最大资源数量;或设为-1,表示枚举尽可能多的资源。一旦返回,就会设为实际枚举的资源数量
lpBuffer Any,通常是一个字节缓冲区的首字节。该缓冲区装载了枚举信息(可按引用声明为Byte)
lpBufferSize Long,以字节为单位指定lpBuffer数组的长度。如缓冲区不够大,则设为需要的缓冲区长度
注解
枚举网络条目时,最好用vb一次枚举一个资源。尽量不要使用这个函数同时枚举许多网络资源的功能

10.WNetGetConnection

VB声明
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
说明
获取本地或已连接的一个资源的网络名称
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpszLocalName String,本地设备的名字
lpszRemoteName String,指定一个字串缓冲区,用于装载设备的资源名称
cbRemoteName Long,lpszRemoteName缓冲区的字符数量。如缓冲区不够大,则设为需要的缓冲区长度

11.WNetGetLastError

VB声明
Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long
说明
获取网络错误的扩展错误信息
返回值
Long,零表示成功。ERROR_INVALID_ADDRESS表示缓冲区无效
参数表
参数 类型及说明
lpError Long,指定一个变量,用于装载网络错误代码。具体的代码由网络供应商决定
lpErrorBuf String,指定一个字串缓冲区,用于装载网络错误的说明
nErrorBufSize Long,lpErrorBuf缓冲区包含的字符数量
lpNameBuf String,用于装载网络供应商名字的字串缓冲区
nNameBufSize Long,lpNameBuf缓冲区的字符数量

12.WNetGetUniversalName

VB声明
Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long
说明
获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称。例如,假设一个已连接的远程驱动器是\\othersystem\CDrive,它对应的本地驱动器是F:,而且在它的子目录temp中包含了文件xyz.doc。那么运算结果如下:LocalPath xyz.doc 或 f:\temp\xyz.doc(或者文件的任何相对路径名)
UNC 名称: \\othersystem\CDrive\temp\xyz.doc
连接名称: \\othersystem\CDrive
剩余名称: \temp\xyz.doc
它们分别对应于由这个函数装载的REMOTE_NAME_INFO结构的字段,对该结构的定义如下:
Type REMOTE_NAME_INFO
pUniversalName As Long
pConnectionName As Long
pRemainingPath As Long
End Type
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpLocalPath String,磁盘文件的名字
dwInfoLevel Long,下述常数之一:
UNIVERSAL_NAME_INFO_LEVEL 只设置pUniversalName字段
REMOTE_NAME_INFO_LEVEL 设置REMOTE_NAME_INFO结构中的所有三个字段
lpBuffer Any,指定用于装载UNC信息的一个缓冲区。缓冲区起点与一个REMOTE_NAME_INFO结构对应
lpBufferSize Long,以字节为单位指定lpBuffer缓冲区的长度。如缓冲区不够大,则设为需要的缓冲区长度

13.WNetGetUser

VB声明
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
说明
获取一个网络资源用以连接的名字
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
lpName String,指定已连接资源的远程名称或本地名称。用vbNullString获取当前用户的名字
lpUserName String,用于装载用户名的一个字串缓冲区
lpnLength Long,lpUserName缓冲区的长度。如缓冲区不够大,则自动设为需要的缓冲区长度

14.WNetOpenEnum

VB声明
Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long
说明
启动对网络资源进行枚举的过程。这个函数会返回由WNetEnumResource函数用于枚举资源所用的一个句柄
返回值
Long,零表示成功。会设置GetLastError。如GetLastError是ERROR_EXTENDED_ERROR,则可用WNetGetLastError取得额外的错误信息
参数表
参数 类型及说明
dwScope Long,指定要枚举的资源范围。可设为下述常数之一:
RESOURCE_CONNECTED 枚举已连接的资源(忽略dwUsage)
RESOURCE_GLOBALNET 枚举所有资源
RESOURCE_REMEMBERED 只枚举永久性连接
dwType Long,下述常数之一
RESOURCE_ANY 枚举所有类型的网络资源
RESOURCE_DISK 枚举磁盘资源
RESOURCE_PRINT 枚举打印资源
dwUsage Long,可设为零,表示枚举所有资源;或设为下述常数的一个或两个:
RESOURCEUSAGE_CONNECTABLE 只枚举那些能够连接的资源
RESOURCEUSAGE_CONTAINER 只枚举包含了其他资源的资源
lpNetResource NETRESOURCE,这个结构指定了一个容器资源。该函数会枚举包含于这里指定的某个指定资源内的资源。如设为NULL(把声明变成ByVal As Long),那么函数会枚举顶级网络资源。倘若在dwScope参数里没有指定RESOURCE_GLOBALNET,那么必须为NULL
lphEnum Long,指定一个变量,用于装载一个枚举句柄。该句柄由WNetEnumResource函数使用。必须用WNetCloseEnum函数将其清除

C. 使用vb.net将以太网共享给虚拟wifi网络

最简单的办法是用句柄操作窗体,这种方法就好比是计算机在代替你在打开设置窗口,完成设置。
比较难实现的方法是用API,不过我不知道用那些API,而且还要驱动支持
因为vb。net是高级语言,不能直接操作驱动,所以直接写汇编是不可行的

D. 如果不用net use的方法,vb.net 有办法访问共享文件或者共享文件夹吗

我不会VB,但是都是.net。c#的代码稍微转换一下就可以了。
C#实现访问网络共享文件夹,使用WNetAddConnection2A和WNetCancelConnection2A。
在目标服务器建立共享文件夹,建立访问账号test;
publicenumERROR_ID
{
ERROR_SUCCESS=0,//Success
ERROR_BUSY=170,
ERROR_MORE_DATA=234,
ERROR_NO_BROWSER_SERVERS_FOUND=6118,
ERROR_INVALID_LEVEL=124,
ERROR_ACCESS_DENIED=5,
ERROR_INVALID_PASSWORD=86,
ERROR_INVALID_PARAMETER=87,
ERROR_BAD_DEV_TYPE=66,
ERROR_NOT_ENOUGH_MEMORY=8,
ERROR_NETWORK_BUSY=54,
ERROR_BAD_NETPATH=53,
ERROR_NO_NETWORK=1222,
ERROR_INVALID_HANDLE_STATE=1609,
ERROR_EXTENDED_ERROR=1208,
ERROR_DEVICE_ALREADY_REMEMBERED=1202,
ERROR_NO_NET_OR_BAD_PATH=1203
}
publicenumRESOURCE_SCOPE
{
RESOURCE_CONNECTED=1,
RESOURCE_GLOBALNET=2,
RESOURCE_REMEMBERED=3,
RESOURCE_RECENT=4,
RESOURCE_CONTEXT=5
}
publicenumRESOURCE_TYPE
{
RESOURCETYPE_ANY=0,
RESOURCETYPE_DISK=1,
RESOURCETYPE_PRINT=2,
RESOURCETYPE_RESERVED=8,
}
publicenumRESOURCE_USAGE
{
RESOURCEUSAGE_CONNECTABLE=1,
RESOURCEUSAGE_CONTAINER=2,
RESOURCEUSAGE_NOLOCALDEVICE=4,
RESOURCEUSAGE_SIBLING=8,
RESOURCEUSAGE_ATTACHED=16,
RESOURCEUSAGE_ALL=(RESOURCEUSAGE_CONNECTABLE|RESOURCEUSAGE_CONTAINER|RESOURCEUSAGE_ATTACHED),
}
publicenumRESOURCE_DISPLAYTYPE
{
RESOURCEDISPLAYTYPE_GENERIC=0,
RESOURCEDISPLAYTYPE_DOMAIN=1,
RESOURCEDISPLAYTYPE_SERVER=2,
RESOURCEDISPLAYTYPE_SHARE=3,
RESOURCEDISPLAYTYPE_FILE=4,
RESOURCEDISPLAYTYPE_GROUP=5,
RESOURCEDISPLAYTYPE_NETWORK=6,
RESOURCEDISPLAYTYPE_ROOT=7,
RESOURCEDISPLAYTYPE_SHAREADMIN=8,
RESOURCEDISPLAYTYPE_DIRECTORY=9,
RESOURCEDISPLAYTYPE_TREE=10,
RESOURCEDISPLAYTYPE_NDSCONTAINER=11
}
[StructLayout(LayoutKind.Sequential)]
publicstructNETRESOURCE
{
publicRESOURCE_SCOPEdwScope;
publicRESOURCE_TYPEdwType;
publicRESOURCE_DISPLAYTYPEdwDisplayType;
publicRESOURCE_USAGEdwUsage;
[MarshalAs(UnmanagedType.LPStr)]
publicstringlpLocalName;
[MarshalAs(UnmanagedType.LPStr)]
publicstringlpRemoteName;
[MarshalAs(UnmanagedType.LPStr)]
publicstringlpComment;
[MarshalAs(UnmanagedType.LPStr)]
publicstringlpProvider;
}
publicclassNetworkConnection
{
[DllImport("mpr.dll")]
(NETRESOURCE[]lpNetResource,stringlpPassword,stringlpUserName,intdwFlags);
[DllImport("mpr.dll")]
(stringsharename,intdwFlags,intfForce);

publicstaticintConnect(stringremotePath,stringlocalPath,stringusername,stringpassword)
{
NETRESOURCE[]share_driver=newNETRESOURCE[1];
share_driver[0].dwScope=RESOURCE_SCOPE.RESOURCE_GLOBALNET;
share_driver[0].dwType=RESOURCE_TYPE.RESOURCETYPE_DISK;
share_driver[0].dwDisplayType=RESOURCE_DISPLAYTYPE.RESOURCEDISPLAYTYPE_SHARE;
share_driver[0].dwUsage=RESOURCE_USAGE.RESOURCEUSAGE_CONNECTABLE;
share_driver[0].lpLocalName=localPath;
share_driver[0].lpRemoteName=remotePath;
Disconnect(localPath);
intret=WNetAddConnection2A(share_driver,password,username,1);
returnret;
}
publicstaticintDisconnect(stringlocalpath)
{
returnWNetCancelConnection2A(localpath,1,1);
}
调用方式:
()
{
stringlocalpath="X:";
//intstatus=NetworkConnection.Connect(@"\192.168.0.2 est",localpath,@"test","test");
intstatus=NetworkConnection.Connect("\\192.168.0.2\test",localpath,@"test","test");
if(status==(int)ERROR_ID.ERROR_SUCCESS)
{
FileStreamfs=newFileStream(localpath+@"\123.txt",FileMode.OpenOrCreate);
using(StreamWriterstream=newStreamWriter(fs))
{
stream.WriteLine("你好呀,成功了");
stream.Flush();
stream.Close();
}
fs.Close();
}
else
{
Console.WriteLine(status);
}
NetworkConnection.Disconnect(localpath);
}

E. VB.NET怎么登录带用户名和密码的服务器,链接数据库

做不到,access数据库是本地数据库,不支持网络访问,建议你换成sql server或者mysql之类的数据库。
注:如果一定要远程访问access也不是不行,有两种办法,一个是服务器如果跟你在同一个局域网,可以把数据库文件夹共享出来,当做共享文件访问。另一种是在那台服务器上装个sql server数据库,sql server可以创建出链接数据库链接到那个access.

F. vb.net里面老是看到什么“共享方法”“共享属性”是什么意思

可以直接从类调用共享方法,而不必首先创建该类的实例。共享属性与之类似,可以在一创建类实例的情况下访问,并且即使有了多个实例,共享属性仍然只有一个,就是说,设置了该属性后,对所有实例有效。类似于全局变量。

G. 急急急,请问那位大侠知道 如何在VB6.0中搜索列出指定IP的电脑的共享文件及其子文件

时间有点久了,都快忘了,给个大概的吧

先建个模块,里面放这些函数和结构体

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
"WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Public Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long
Const RESOURCETYPE_DISK = &H1
Const RESOURCETYPE_PRINT = &H2
Const RESOURCETYPE_ANY = &H0
Const RESOURCE_CONNECTED = &H1
Const RESOURCE_REMEMBERED = &H3
Const RESOURCE_GLOBALNET = &H2
Const RESOURCEDISPLAYTYPE_DOMAIN = &H1
Const RESOURCEDISPLAYTYPE_GENERIC = &H0
Const RESOURCEDISPLAYTYPE_SERVER = &H2
Const RESOURCEDISPLAYTYPE_SHARE = &H3
Const RESOURCEUSAGE_CONNECTABLE = &H1
Const RESOURCEUSAGE_CONTAINER = &H2
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type

然后在界面里面
Public Function NetDriveConnect2(ServerIP As String, ServerUpdatePath As String) As Boolean
NetDriveConnect2 = False
Dim NetR As NETRESOURCE
Dim ErrInfo As Long
NetR.dwScope = RESOURCE_GLOBALNET
NetR.dwType = RESOURCETYPE_DISK
NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE

NetR.lpLocalName = "T:"
NetR.lpRemoteName = "\\" & ServerIP & "\" & ServerUpdatePath
ErrInfo = WNetAddConnection2(NetR, "User", "123", 0) '用户名和密码

If ErrInfo = NO_ERROR Then
NetDriveConnect2 = True
End If
End Function
Public Function NetDriveDisconnect2() As Boolean
NetDriveDisconnect2 = False
Dim ErrInfo As Long
Dim strLocalName As String
strLocalName = "T:"
ErrInfo = WNetCancelConnection2(strLocalName, CONNECT_UPDATE_PROFILE, True)
If ErrInfo = NO_ERROR Then
NetDriveDisconnect2 = True
End If
End Function

Private Sub Command2_Click()

If NetDriveConnect2(ServerIP, "share") Then
MsgBox "ok"
End If

End Sub

需要知道目标机器的用户名和密码,连接成功本地会映射一个T盘出来,然后就把T盘当本地文件一样用就行了。

如果目标机器建的是隐式共享,别忘了加“$”,NetDriveConnect2(ServerIP, "share$"),就像这样。

但愿能帮到你,个人用下来这招不是太稳定,尤其网络不好的时候,会非常卡,呵呵。