E ae pessoal, blz?
Seguinte, tenho um site de baladas, e pra enviar as fotos eu criei um sisteminha que envia 5 fotos por vez.
Gostaria de saber se há algum jeito de eu enviar todas as fotos via FTP, e depois através de uma página, listar as fotos e gravar tudo no banco de dados?
Agilizaria bem o trabalho.
Vlw.
Duvida Sobre Fso
Started By kabulozo, 17/02/2006, 13:47
4 replies to this topic
#1
kabulozo
-
- Usuários
-
- 68 posts
Normal
- Sexo:Não informado
- Localidade:Piracicaba/SP
Posted 17/02/2006, 13:47
<% kabulozo("Danilo Barbosa") %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper
%>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper
%>
#2
Generation
-
- Usuários
-
- 1546 posts
Super Veterano
- Sexo:Masculino
- Localidade:Curitiba - PR
Posted 17/02/2006, 13:57
ter jeito tem...mas nao seria mais facil voce cadastrar somente a pasta e depois usar FSO para listar as fotos para exibir ?
como listar os arquivos..
http://forum.wmonlin...57&hl=fso%fotos
[]'s
como listar os arquivos..
http://forum.wmonlin...57&hl=fso%fotos
[]'s
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)
#3
Humberto - S.O.S.
-
- Banidos
-
- 463 posts
...
- Sexo:Masculino
- Localidade:São Bernardo do Campo - SP
Posted 17/02/2006, 13:58
usa Fso para listar e depois insert para gravar 
...
#4
kabulozo
-
- Usuários
-
- 68 posts
Normal
- Sexo:Não informado
- Localidade:Piracicaba/SP
Posted 17/02/2006, 14:35
Humm.... pelo link que o Generation passo, eu tive uma idéia aqui... agora vo testar pra v c da certo... c issu funciona... cadastrar fotos vai ser uma facilidade so.... 
<% kabulozo("Danilo Barbosa") %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper
%>
#5
kabulozo
-
- Usuários
-
- 68 posts
Normal
- Sexo:Não informado
- Localidade:Piracicaba/SP
Posted 17/02/2006, 15:18
Bom... consegui o que eu queria... mas (tem sempre um mas na história.. hauhaua), tem um problema.
É o seguinte, em uma mesma tabela no banco de dados eu tenho as colunas MINIATURA e FOTO.
Como é que eu faço pra ele fazer o loop e cadastrar o nome da MINIATURA e da FOTO respectivamente???
Tentei isso, mas num deu certo:
Ele gerou uns 5 mil registros
Alguém me da uma luz por favor
Aproveitando a resposta.
Como faço pra pegar o valor total de arquivos na pasta e exibir este número?
Vlw
É o seguinte, em uma mesma tabela no banco de dados eu tenho as colunas MINIATURA e FOTO.
Como é que eu faço pra ele fazer o loop e cadastrar o nome da MINIATURA e da FOTO respectivamente???
Tentei isso, mas num deu certo:
Set fso = CreateObject("Scripting.FileSystemObject")
Set str_PFotos = fso.GetFolder(Server.MapPath("../eventos/" &str_Evento&str_DatDia&str_DatMes&int_DatAno& "/fotos/"))
Set str_PMini = fso.GetFolder(Server.MapPath("../eventos/" &str_Evento&str_DatDia&str_DatMes&int_DatAno& "/miniaturas/"))
For Each Foto in str_PFotos.Files
For Each Miniatura in str_PMini.Files
sql = "INSERT INTO "
sql = sql & " adm_fotos "
sql = sql & " (adm_age_id,adm_cob_id,adm_fot_fmi,adm_fot_fot) "
sql = sql & " VALUES "
sql = sql & " ("&int_idEvento&","&int_idCobertura&",'"&Miniatura.Name&"','"&Foto.Name&"') "
con.Execute(sql)
Next
Next
Set str_PFotos = Nothing
Set str_PMini = Nothing
Set fso = Nothing
Ele gerou uns 5 mil registros
Alguém me da uma luz por favor
Aproveitando a resposta.
Como faço pra pegar o valor total de arquivos na pasta e exibir este número?
Vlw
Edição feita por: kabulozo, 17/02/2006, 21:07.
<% kabulozo("Danilo Barbosa") %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper
%>
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
