[Resolvido] Listar arquivos de um diretório

[Tonblz 0]

Boa tarde pessoal,

 

preciso listar os arquivos de um diretório por odem da data de criação, ou seja, qto mais novo o arquivo criado primeiro ele será,

 

abaixo o cod q funciona, mas lista os arquivos por ondem do nome da cada um e naum por data de criação (objItem.datecreated)

 

alguém pode me ajudar ?

 

for each objItem in objFolder.Files 
			%>
			<tr>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<a href=<%=uploadsDirVar & "\" & objItem.name%>>
			<%=objItem.Name%></a>
			</small>
			</font>
			</td>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<%= ucase(FormatDateTime(objItem.datecreated,2))%></a>
			</small>
			</font>
			</td>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<%= ucase(FormatDateTime(objItem.datecreated,3))%></a>
			</small>
			</font>
			</td>
			</tr>
			<%
			intInd=intInd+1
		next

 

abraços,

Wellington

[Tonblz 0]

Pessoal eu consegui resolver

 

abaixo como fiz (com ajuda de outar pergunta da galera aqui no forum) valeu !!!

 

Set objPasta = objFSO.GetFolder (uploadsDirVar)
		Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
		Rs.Fields.Append "nome", 200, 255
		Rs.Fields.Append "data", 7
		Rs.Open
		For Each Arquivo In ObjPasta.Files
			Rs.AddNew
			Rs.Fields("nome").Value = Arquivo.Name
			'Rs.Fields("data").Value = Arquivo.DateLastModified
			Rs.Fields("data").Value = Arquivo.DateCreated
		Next
		Rs.Sort = "data desc"
		%>
		<table border=1 cellspacing=0 cellpadding=3 width=<%=Cint(dblLargCab1)+Cint(dblLargCab2)%>>
		<tr>
		<td colspan=3>
		<small>
		Diretório 
		<font color=#000080><%= "\" & strDiretorio%></font>
		<%
		response.write " - "
		if objFolder.Files.count=0 then
			response.write " diretório vazio"
		elseif objFolder.Files.count=1 then
			response.write objFolder.Files.count & " arquivo"
		else
			response.write objFolder.Files.count & " arquivos"
		end if
		%>
		</small>
		</td>
		</tr>
		<%
		Rs.MoveFirst
		While Not Rs.EoF
			%>
			<tr>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<a href=<%=uploadsDirVar & "\" & rs.fields("nome").value%>>
			<%=rs.fields("nome").value%></a>
			</small>
			</font>
			</td>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<%= ucase(FormatDateTime(rs.fields("data").value,2))%></a>
			</small>
			</font>
			</td>
			<td<%if intInd mod 2 =0 then response.write " bgcolor=#FFB56A"%>>
			<small>
			<font color=#0000FF>
			<%= ucase(FormatDateTime(rs.fields("data").value,3))%></a>
			</small>
			</font>
			</td>
			</tr>
			<%
		intInd=intInd+1
		Rs.MoveNext
		Wend
		Rs.Close
		Set Rs = Nothing
		Set objPasta = Nothing
		Set objFSO = Nothing

 

abraços,

Wellington

[xanburzum 169]

olá amigo...

que bom que resolveu, logo...

mas existem vários outros exemplos no fórum, até mesmo um do tipo explorer

 

até mais

[Patrique 0]

Bendito FSO ele sempre nos salva rsrsrs