Äã ¿É ÒÔ Ê¹ ÓÃ 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>    