Gerar caminho da pasta com informação bd

[ricardo coelho designer 0]

Boa Tarde!!!

 

Estou tentando buscar no bd o arquivo caminho em cada pasta diferente ou então que a pasta fosse criada e em seguida os arquivos dentro. O código é o seguinte:

 

 

<%

Set Conexao = Server.CreateObject ("ADODB.Connection")

Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\pratike\site_16_11_06\projetoconstrucao\bd\projetoconstrucao.mdb;"

 

Set RS = Server.CreateObject("ADODB.Recordset")

RS.Open "SELECT * FROM projetoconstrucao WHERE autonumero=3",Conexao

 

NomeArquivo="pagina5.asp"

 

Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ObjFSO.CreateTextFile("C:\Inetpub\wwwroot\pratike\site_16_11_06\projetoconstrucao\teste\" & NomeArquivo)

MyFile.Write RS("Titulo")

MyFile.Write RS("conteudo")

MyFile.Close

 

response.write "Sucesso"

 

RS.Close

Set RS=Nothing

Conexao.Close

Set Conexao=Nothing

%>

 

Agradeço desde já a ajuda de vcs...

[jrcardozo 4]

qual mensagem de erro?todas as pastas do diretorio existem? se não existe você tem que cria-las