Selecionar uma pasta de imagens

[hudsonalves 0]

Tenho uma pasta com algumas imagens, é possível ao realizar um formulário de cadastro selecionar estas imagens pelo select?

[Gustavo Emygdio Barboza 24]

resolvendo seu outro tópico você verá como fazer esta formulário pela seleção devido você ter o nome vinculando ao arquivo da imagem correspondente...

[hudsonalves 0]

Olá Gustavo, na verdade este é um outro assunto, vai entrar no cadastro de jogadores, quero manter imagens padrões para cadastro, estou pesquisando por aqui mas acho que ninguém fez isso, basicamente quem irá se cadastrar escolhe através de um select a imagem para seu avatar.

[Ronaldo Bueno 23]

Procure por “listar arquivos por pasta” que você vai encontrar

[hudsonalves 0]

Cara eu achei, mas qual é o segredo para manter os arquivos dentro do select

 

consegui, mas ele forma um select para cada arquivo

 

<%
'Declara as variáveis a serem usadas
Dim Local, Folder, File, ObjFS, objRootFolder
'Especifica o endereço do conteúdo a ser exibido
Local = "c:/inetpub/wwwroot/jogos/distintivos"


'Cria o objeto FileSystemObject
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = ObjFS.GetFolder(Local)




'Exibe pastas encontradas
For Each Folder in objFolder.Subfolders
Response.Write " <option value="">"
Response.Write " <td>" & Folder.Name & "</td>"
Response.Write " <td>" & Folder.Type & "</td>"
Response.Write " <td align=right>" & Folder.Size & "  </td>"
Response.Write " <td>" & Folder.DateLastModified & "</td>"
Response.Write " </option>"
Next


'Exibe arquivos encontrados
For Each File in objFolder.files
Response.Write "<select name='ESTADO' type='text' class='formcadastro'>"
Response.Write " <option value="">"  & File.Name & ""
Response.Write " </option>"
Next


Response.Write "</select>"


'Elimina variáveis da memória 
Set Local = Nothing
Set File = Nothing
Set objFolder = Nothing
Set Folder = Nothing
%>

[wilnet 92]

Cara, em meus arquivos achei isso, veja se ajuda.

 

Basta dar uma melhorada nele.

<table width="140" border=0 cellPadding=0 cellSpacing=0>
  <tr>
  <td width="120">

<%
Dim lista_img, contar, lista_id

set lista_img = dadosDB.Execute("SELECT * FROM listar_avatar ORDER by id")
contar = -1
while not lista_img.EOF and contar < 200
lista_id = lista_img("id")
contar = contar + 1
if ( contar mod 6 ) = 0 and contar < 50 then
%> 
 
  </td>
  <td width="20"> </td>
  </tr>
  
  <tr>
  
<%
end if
%>  
    <td>
	
<%
If lista_img("avatar") <> "/" Then
%>

<div align="center"><img src="../imagem/<%=lista_img("avatar")%>" border="0"> 
<br /><input type="radio" name="icone" id="icone" value="<%=lista_img("avatar")%>" /></div>
 
<% 
end if 
%>	

</td>
    <td> </td>
	
<%
lista_img.MoveNext
wend
%>

<%
lista_img.Close
set lista_img = Nothing
%>	

  </tr>
 </table>

Veja se ajuda no que quer.

[xanburzum 169]

eu uso assim:

<% 
Dim fso, f, f1, fc ,diretorio

diretorio = "c:\inetpub\wwwroot"      'Aqui o diretório principal 
Set fso = CreateObject("Scripting.FileSystemObject") 

   IF fso.FolderExists(diretorio) Then 
      Set f = fso.GetFolder(diretorio) 
      '----------------------------------------------- 
      ' lista os subdiretórios do diretório principal 
      '----------------------------------------------- 
      response.write "<select><br>" 
      For Each Item in f.Subfolders 
         response.write "<option value="& item.Name &">"& item.Name &"</option><br>" 
      Next 
      response.write "</select>" 
   End IF 

%>

[hudsonalves 0]

Cara, em meus arquivos achei isso, veja se ajuda.

 

Basta dar uma melhorada nele.

<table width="140" border=0 cellPadding=0 cellSpacing=0>
  <tr>
  <td width="120">

<%
Dim lista_img, contar, lista_id

set lista_img = dadosDB.Execute("SELECT * FROM listar_avatar ORDER by id")
contar = -1
while not lista_img.EOF and contar < 200
lista_id = lista_img("id")
contar = contar + 1
if ( contar mod 6 ) = 0 and contar < 50 then
%> 
 
  </td>
  <td width="20"> </td>
  </tr>
  
  <tr>
  
<%
end if
%>  
    <td>
	
<%
If lista_img("avatar") <> "/" Then
%>

<div align="center"><img src="../imagem/<%=lista_img("avatar")%>" border="0"> 
<br /><input type="radio" name="icone" id="icone" value="<%=lista_img("avatar")%>" /></div>
 
<% 
end if 
%>	

</td>
    <td> </td>
	
<%
lista_img.MoveNext
wend
%>

<%
lista_img.Close
set lista_img = Nothing
%>	

  </tr>
 </table>

Veja se ajuda no que quer.

 

 

Brother, vai ajudar sim na seleção de quadra do cadastro, obrigado pela ajuda!

Xanburzum, pelo seu consegui adaptar o meu, agora aparece certinho a lista pelo select

 

Segue o código rodando:

 

<%
'Declara as variáveis a serem usadas
Dim Local, Folder, File, ObjFS, objRootFolder
'Especifica o endereço do conteúdo a ser exibido
Local = "c:/inetpub/wwwroot/ajaxtaipasv3/distintivos/"


'Cria o objeto FileSystemObject
Set ObjFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = ObjFS.GetFolder(Local)


'Exibe pastas encontradas
'For Each Folder in objFolder.Subfolders
'Response.Write " <option value="">"
'Response.Write " <td>" & Folder.Name & "</td>"
'Response.Write " <td>" & Folder.Type & "</td>"
'Response.Write " <td align=right>" & Folder.Size & "  </td>"
'Response.Write " <td>" & Folder.DateLastModified & "</td>"
'Response.Write " </option>"
'Next


'Exibe arquivos encontrados
Response.Write "<select name='ESTADO' type='text' class='formcadastro'>"
For Each File in objFolder.files
Response.Write " <option value="">"  & File.Name & ""
Response.Write " </option>"
Next
response.write "</select>" 


'Elimina variáveis da memória 
Set Local = Nothing
Set File = Nothing
Set objFolder = Nothing
Set Folder = Nothing
%>

obrigado pela ajuda!

[wilnet 92]

vlw, mais um que vc resolveu.

[hudsonalves 0]

vlw, mais um que você resolveu.

 

 

Claro que só foi possível com ajuda de vocês.

 

Valeu!

[xanburzum 169]