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

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 11 行

下 面 为 我 写 的 一 小 段 程 序 ， 相 信 对 你 有 一 定 帮 助 。 
     
    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>