*********************************
Muitas vezes, podemos precisar de alguma parte do código que acesse todos os subpastantes do servidor e também todos
arquivos dentro do subpasto.
A seguinte linha do código ASP mapeará para uma pasta especificada e pesquisará todos os sub-osdores
(Não recursivamente, o código pode ser estendido para fazer) e lê todos os arquivos (basicamente arquivos de texto) um por um.
Você pode especificar qualquer nome de pasta, nas observações dadas no código (dentro)
'Crie um objeto de sistema de arquivos
Definir arquivosystem = server.createObject (script.filesystemoBject)
Dim DBConn
FolderPath = Server.mappath (caminho da pasta principal)
set sfolder = filesystem.getfolder (pasterPath) .subfolders
Para cada pasta em Solder
Definir arquivos = pasterItem.files
Para cada arquivo em arquivos
fname = server.mappath (Caminho da pasta principal e pasteritem.name & / & FileItem.name
set file = filesystem.opentExtfile (fname, 1, false)
enquanto file.atendofstream <> true
registro = split (file.readline, ~)
Wend
File.close
Filesystem.deletefile (fname)
próximo
próximo
*********************************