<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if request.querystring("novapasta") <> "" then set novapasta = server.CreateObject("Scripting.FileSystemObject") if not novapasta.FolderExists("E:\Home\media.sindicatoseth\Web\" & request.querystring("novapasta")) then novapasta.createFolder ("E:\Home\media.sindicatoseth\Web\" & request.querystring("novapasta")) response.Redirect("SelFile.asp") end if end if %> <% if request.querystring("deletar") <> "" then set novapasta = server.CreateObject("Scripting.FileSystemObject") if novapasta.FolderExists(("E:\Home\media.sindicatoseth\Web\" & request.querystring("deletar"))) then novapasta.deleteFolder ("E:\Home\media.sindicatoseth\Web\" & request.querystring("deletar")), true response.Redirect("SelFile.asp") end if end if if request.querystring("delfile") <> "" then set novapasta = server.CreateObject("Scripting.FileSystemObject") if novapasta.FileExists(("E:\Home\media.sindicatoseth\Web\" & request.QueryString("pasta") & "\" & request.querystring("delfile"))) then novapasta.deleteFile ("E:\Home\media.sindicatoseth\Web\" & request.QueryString("pasta") & "\" & request.querystring("delfile")), true response.Redirect("SelFile.asp") end if end if %> Incluir Imagem

excluir arquivo

enviar Arquivos
<% set pasta = CreateObject("Scripting.FileSystemObject") subpastas = ("E:\Home\media.sindicatoseth\Web\") set pastalista = pasta.Getfolder(subpastas) set pastalistar = pastalista.SubFolders %> Examinar:
Selecione o video
<% if apasta <> "" then set pasta = server.CreateObject("Scripting.FileSystemObject") set pastalista = pasta.Getfolder(("E:\Home\media.sindicatoseth\Web\" & apasta)) set arquivos = pastalista.files %>   *Obs: A criação, alteraçao ou exclusão de pastas são feitas exclusivamente pelo FTP.