Código:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
PathInicial = Server.MapPath(".") & "\PolizaTxt\"
NomFolder = objFSO.BuildPath(PathInicial, "TuCarpetaDeTrabajo")
Set objFolder = objFSO.GetFolder(NomFolder)
Set objFolderRoot = objFSO.GetFolder(PathInicial)
Set Subcarpetas = objFolderRoot.SubFolders
For Each SubCarpeta in Subcarpetas
'Lo que quieras hacer con las carpetas
Next
For Each objItem In objFolder.Files
'Lo que quieras hacer con los archivos
Next
Basicamente debes buscar en Internet algún tutorial sobre FSO (File System Object)
Saludos