怎样在指定的目录中查看是否还有文件夹.txt

VB技巧问答10000例 VB技巧问答10000例

你 可 以 使 用 VB的 Dir命 令 来 实 现 你 的 要 求 。 
     Dim sPath, sDir 
     
     sPath = "c:\win95\" 
     sDir = Dir(sPath & "*.*", vbDirectory) 
     While sDir <> "" 
     If GetAttr(sPath & sDir) And vbDirectory Then ' only look at dirs 
     Print sDir 
     End If 
     sDir = Dir() 
     Wend 
<END>