Question

vb 创建文件夹并共享这个文件夹

我用VB写了个小程序,主要是读取数据库里的每条记录,然后以每条记录的编号为文件名创建一个文件夹并共享这个文件夹,每读了一条记录后我都用MkDir新建了一个文件夹,但是现在就是怎么才能把这个文件夹共享出去,而且要完全共享,我用了shell(net share)试了一下,好像里面直接写文件夹的名字还可以,用变量来做就不行,求各位老大教一下.

Answer 1

Private Sub Command1_Click()
Dim FileN$, PathN$
FileN = "Test001"
PathN = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
MkDir PathN & FileN
Shell "cmd /c net share " & FileN & "=" & PathN & FileN
MsgBox "ok"
End Sub

Answer 2

妮可真是高高手，此方法我试过，果然有效
佩服佩服!

Answer 3

网上找到！~