Posso Criar pasta atraves da pag asp ?
Oi Caros,
Eu estou com um sistema que envia e-mail para outros usuários e há a possibilidade de adicionar imagem, ou algum tipo de arquivo para enviar.
Esse arquivo vai ficar armazenado numa pasta no sistema, vai ser tratado e quando for enviado o sistema busca nessa pasta e envia.
Consulta = "Select top 1 * from webmail order by codEnvio desc "
set rs = CnS.execute(consulta)
CodEnvio = rs("codEnvio")
rs.close
set rs = nothing
If lStrAnexo <> "" then
NoneArquivo = "Web"&CodEnvio&"."&extencao2
Pasta = Server.MapPath("../../webmail")
lStrPath = Pasta&"\"&year(now())&"\"&NoneArquivo
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(lStrPath,True)
lStrAnexo = BinaryToString(UploadRequest.Item("anexo").Item("Value"))
MyFile.Write(lStrAnexo)
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
Else
NoneArquivo =""
End if
O sistema busca uma pasta com o nome igual ao ano que estamos.
No mês passado existia uma pasta "2008" e os arquivos ficam armazenados ali.
Minha dúvida é o seguinte, estamos no ano de 2009 logo o sistema vai buscar uma pasta "2009" se eu não criar no servidor vai dar erro.
Tem como se a pasta não existir o sistema criar a pasta que eu quero???
Desde já agradeço!
Discussão (6)
Carregando comentários...