2003!!! mas não ta ativada essa opção... o codigo que usei: <%
Set objFSO = server.CreateObject("scripting.FileSystemObject")
'Referência do drive C:
Set ObjDriveC = objFSO.GetDrive ("c:")
'Referência à pasta principal
Set ObjRoot = objDriveC.RootFolder
'Referência à coleção de folders
Set colFolders = objRoot.SubFolders
'Lista através das pastas
For Each objFolder in colFolders
Response.write "<hr>"
Response.Write "Nome: "& ObjFolder.Name &"<br>"
Response.Write "Nome Abreviado: "& ObjFolder.ShortName &"<br>"
Response.Write "Tipo: "& ObjFolder.Type &"<br>"
Response.Write "Caminho: "& ObjFolder.Path &"<br>"
Response.Write "Criado em: "& ObjFolder.DateCreated &"<br>"
Response.Write "Modificado em: "& ObjFolder.DateLastModified &"<br>"
Response.write "<hr><br><br><br>"
Next
%>