Como gravar todo conteudo de uma pasta

[Daniel Paes 0]

Olá Amigos! Alguem sabe como fazer para cadastrar todos os arquivos de uma pasta no banco de dados???

[rockbilly 0]

Bom, eu naõ entendi muito bem o que você quer, mas se é pra cadastrar os nomes dos arquivos de determinada pasta, você terá que criar um procedimento para listar as pastas, depois você grava essas informações e repassa para o BD!Abrs.

[Daniel Paes 0]

Isso mesmo que eu quero.... mas você teria um exemplo de como listar a pasta????

[Daniel Paes 0]

E ai????? alguem tem ideia de como fazer isto?????? naum to conseguindo

[Salgado 4]

Dá uma pesquisada por FSO, um bom site para a consulta W3 Schools, está em inglês.

[Daniel Paes 0]

Dá uma pesquisada por FSO, um bom site para a consulta W3 School, está em inglês.

Mas eu tentei colocar um codigo FSO só que deu esse erro:

HTTP 403.9 - Acesso proibido: número excessivo de usuários conectados Internet Information Services

o codigo é esse:

<% Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(Server.Mappath("\")) Set files = folder.Files For Each file in Files Response.Write file.Name & "<BR>" Next Set files = folder.Files Set file = Nothing Set fso = Nothing %>

[rockbilly 0]

até ai onde você fez ta tudo certo, agora é so inserir no BD, ex:

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

Set pasta = arquivo.GetFolder(Server.MapPath("\exercicio\Strings"))

Set lista = pasta.files

 

For Each lista1 in lista

cache = cache & lista1.Name & "  "

Next

Response.Write cache

 

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

conecta.Open "banco"

SQL = "INSERT INTO tabela(Arquivo)VALUES('"& cache &"')"

Set Reg = conecta.Execute(SQL)

Response.Write "<br>"

Response.Write "<br>"

Response.Write "Dados cadastrados com sucesso!"

 

Set arquivo = nothing

Set pasta = nothing

Set lista = nothing

abraços.

[Daniel Paes 0]

até ai onde você fez ta tudo certo, agora é so inserir no BD, ex:

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

Set pasta = arquivo.GetFolder(Server.MapPath("\exercicio\Strings"))

Set lista = pasta.files

 

For Each lista1 in lista

cache = cache & lista1.Name & "  "

Next

Response.Write cache

 

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

conecta.Open "banco"

SQL = "INSERT INTO tabela(Arquivo)VALUES('"& cache &"')"

Set Reg = conecta.Execute(SQL)

Response.Write "<br>"

Response.Write "<br>"

Response.Write "Dados cadastrados com sucesso!"

 

Set arquivo = nothing

Set pasta = nothing

Set lista = nothing

abraços.

ta dando erro http 500

 

 

aqui vai como eu coloquei:

 

<%

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

Set pasta = arquivo.GetFolder("c:\daniel\")

Set lista = pasta.files

 

For Each lista1 in lista

cache = cache & lista1.Name & "  "

Next

Response.Write cache

 

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

conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\daniel\database\daniel.mdb"

SQL = "INSERT INTO grava VALUES('"& cache &"')"

Set Reg = conecta.Execute(SQL)

Response.Write "<br>"

Response.Write "<br>"

Response.Write "Dados cadastrados com sucesso!"

 

Set arquivo = nothing

Set pasta = nothing

Set lista = nothing

%>

[rockbilly 0]

Nessa parte, coloque o campo na tabela grava onde será gravada as info:

SQL = "INSERT INTO grava(campo)VALUES('"& cache &"')"

[Daniel Paes 0]

ta dando esse xabu:

 

HTTP 403.9 - Acesso proibido: número excessivo de usuários conectados

[rockbilly 0]

Bom, ai nesse caso, depende das restrições de pastas, usuários, acho que você vai ter que dar uma checkada se for ADM do sistema, senão tente entrar em contato com ele e pergunte se existe alguma restrição na pasta onde se encontra o BD.

[Daniel Paes 0]

Bom, ai nesse caso, depende das restrições de pastas, usuários, acho que você vai ter que dar uma checkada se for ADM do sistema, senão tente entrar em contato com ele e pergunte se existe alguma restrição na pasta onde se encontra o BD.

não.... eu to testando localmente... no meu pc pelo iis

[rockbilly 0]

Pode ser alguma configuração de sessão no IIS, normalmente ele vem com 10 acessos, você terá que checkar, ou pode ser problema de permissão, ou problema do driver escolhido para abrir o banco, você já experimentou criar um banco no ODBC em system DSN. depois é so chamar pelo codigo ASP sem apontar o driver!

[Daniel Paes 0]

Pode ser alguma configuração de sessão no IIS, normalmente ele vem com 10 acessos, você terá que checkar, ou pode ser problema de permissão, ou problema do driver escolhido para abrir o banco, você já experimentou criar um banco no ODBC em system DSN. depois é so chamar pelo codigo ASP sem apontar o driver!

de um exemplo por favor

[rockbilly 0]

tipo, olha no meu exemplo, lá esta assim:conecta.Open "BD"o BD você cria la no painel de controle drivers para ODBC - aba system DSN - botao ADD e escolha o driver para o banco de dados, no seu caso, driver para o microsoft access (*.mdb), depois é so dar um nome, no caso o exemplo que citei acima: BD e depois é so procurar o arquivo .mdb.tenta ai...