<%
dim tipo, strTitulo, uploadsDirVar
tipo = request.QueryString("t")
if tipo = "video" then
'uploadsDirVar = "c:\web\irupiesgovbr\www\caparaocapixaba\images\autores"
uploadsDirVar = strCaminhoFisico & "imagens\capas\depoimentos"
strTitulo = "Procurando imagens..."
strTipoArquivo = "flv"
elseif tipo = "img" then
uploadsDirVar = strCaminhoFisico & "imagens\capas\depoimentos"
strTitulo = "Procurando imagens..."
strTipoArquivo = "jpg"
end if
Function ScanFolders(PathSpec)
Dim fs, f, Folder, fc, s, File, FileList, FolderInfo, FileName, Name, contador
'Response.Write(""&PathSpec & "
")
Set FolderInfo = Fso.GetFolder(PathSpec)
Set FileList = FolderInfo.Files
contador = 0
For Each File in FileList
Name = Cstr(File.Name)
FileName = UCase(Name)
previewfile=replace(pathspec,bannerspath,bannersfolder) &"\"& filename
previewfile=replace(previewfile,"\","/")
if Fso.GetExtensionName(Name) = strTipoArquivo then
'response.write ""& filename&" "
if tipo = "video" then
response.write " » " & filename & " "
elseif tipo = "img" then
response.write " "
end if
end if
contador = contador + 1
if contador = 10 then
response.write " "
contador = 0
end if
Next
response.write "
"
Set f = Fso.GetFolder(PathSpec)
Set fc = f.SubFolders
For Each Folder in fc
response.write "
"& filename&"