如何在客户机上建立服务器上的一个共享的文件目录.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

下 面 为 我 写 的 一 小 段 程 序 ， 相 信 对 你 有 一 定 帮 助 。 
     
    Dim fso, d 
    dim newfolder as string 
     On Error Resume Next '//////如 已 经 建 立 则 忽 略 错 误 
     Set fso = CreateObject("Scripting.FileSystemObject") 
     newfolder="test" 
     '/////引 号 内 为 服 务 器 目 录 
     Set d = fso.createfolder("\\NTSVR01\home" & "\" & newfolder) 
    如 要 建 立 多 级 目 录 ， 必 须 一 步 步 逐 渐 建 立 。 
<END>