电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> VB编程>>vb遍历root目录,并创建文件夹:

vb遍历root目录,并创建文件夹

来源:网络 | 2007-3-30 | (有4803人读过)

Part I - 遍历目录:
’--------------------------------    
  Dim   Mypath,MyfileName    
  Mypath="c:\"    
  MyfileName=Dir(Mypath,vbDirectory)’包括文件夹在内的c:\所有的内容     
  Do   while   MyfileName   <>""    
    If   (GetAttr(Mypath   &   MyfileName)   And   vbDirectory)   =   vbDirectory   Then    
            If   MyfileName   =   "XX"   Then    
                End    
            Else    
                ’创建XX文件夹    
            End   If    
    End   If    
    MyfileName   =   Dir       ’通过这个赋值,实现do   while的循环。    
  Loop

Part II - 开始创建 - 逐级:
          Dim   IIsObjectPath    
          Dim   IIsObject    
          Dim   vroot    
          Dim   vdir    
     
          IIsObjectPath   =   server   +   "/W3SVC/"   +   1    
          Set   IIsObject   =   GetObject(IIsObjectPath)     
          Set   vroot   =   IIsObject.GetObject("IIsWebVirtualDir",   "Root")     
          Set   vdir   =   vroot.Create("IIsWebVirtualDir",   "XX")  
VB编程热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2021 电脑爱好者 版权所有 备案号:鲁ICP备09059398号