Publicação Ler

<%
Dim fso, folderPath, filePath, file, folderName

' Definir o nome da pasta e o caminho onde será criada (ajuste o caminho conforme necessário)
folderName = "NovaPasta"
folderPath = Server.MapPath(folderName)

' Criar o objeto FileSystemObject
Set fso = Server.CreateObject("Scripting.FileSystemObject")

' Verificar se a pasta não existe, e criar se necessário
If Not fso.FolderExists(folderPath) Then
    fso.CreateFolder(folderPath)
End If

' Definir o caminho do arquivo a ser criado dentro da nova pasta
filePath = folderPath & " ovo_arquivo.asp"

' Criar o arquivo ASP e adicionar o conteúdo
If Not fso.FileExists(filePath) Then
    Set file = fso.CreateTextFile(filePath, True)
    
    ' Escrever o código ASP no arquivo
    file.WriteLine "<" & "%" ' Escrever a tag de abertura 
    file.WriteLine "Response.Redirect ""paginanova.asp?cod=370""" ' O código ASP
    file.WriteLine "%" & ">" ' Escrever a tag de fechamento 
    
    ' Fechar o arquivo
    file.Close
    Set file = Nothing
End If

' Limpar os objetos
Set fso = Nothing

Response.Write "Pasta e arquivo criados com sucesso."
%>