一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
成都创新互联专业为企业提供灵石网站建设、灵石做网站、灵石网站设计、灵石网站制作等企业网站建设、网页设计与制作、灵石企业网站模板建站服务,十多年灵石做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
第二种采用当前exe所在路径
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
调用
net
share命令即可
在vb中
可用
shell
语句
,如
shell
"net
share
XXXXXX"
NET
SHARE
sharename
sharename=drive:path
[/USERS:number
|
/UNLIMITED]
[/REMARK:"text"]
[/CACHE:Manual
|
Documents|
Programs
|
None
]
sharename
[/USERS:number
|
/UNLIMITED]
[/REMARK:"text"]
[/CACHE:Manual
|
Documents
|
Programs
|
None]
{sharename
|
devicename
|
drive:path}
/DELETE
NET
SHARE
使网络用户可以使用某一服务器上的资源。
当不带选项使用本命令
时,它会列出该计算机上正在被共享的所有资源。对于每一种资源,Windows
都
会报告其设备名或路径名,以及与之相关的描述性注释。
sharename
指共享资源的网络名。输入
NET
SHARE
和一个共享名只会
显示那个共享的有关信息。
drive:path
指定将被共享的目录的绝对路径。
/USERS:number
设置可以同时访问共享资源的最大用户数。
/UNLIMITED
指定用户可以同时访问共享资源的不受限制的数目。
/REMARK:"text"
添加一个有关资源的描述性注释,应将文本包含在引号中。
devicename
指一个或多个被共享名所共享的打印机
(LPT1:
至
LPT9:)。
/DELETE
终止资源的共享。
/CACHE:Automatic
启用脱机客户缓存和自动重新集成
/CACHE:Manual
启用脱机客户缓存和手动重新集成
/CACHE:No
告诉客户脱机缓存不合适
NET
HELP
command
|
MORE
用于逐屏显示帮助。
NET SHARE命令设置共享路径,如将D盘设为共享
所以你可以使用shell "net share D$"
网络共享文件夹不能直接用VB里的Open语句,那是为本地文件用的
网络文件夹用API函数OpenFile
具体用法:
FileHandle = OpenFile( "\\ " IP地址 文件路径 "\ " 文件名, lpReOpenBuff, OF_READ)