Foros del Web » Programando para Internet » ASP Clásico »

problemas al generar varios CreateObject("Scripting.FileSystemObject")

Estas en el tema de problemas al generar varios CreateObject("Scripting.FileSystemObject") en el foro de ASP Clásico en Foros del Web. bueno pues tengo esta rutina en diferentes paginas ya que dependiendo ciertas variables tengo que generar un listado de mis archivos en las carpetas Código: ...
  #1 (permalink)  
Antiguo 27/09/2007, 12:07
Avatar de Gaby_Corr  
Fecha de Ingreso: junio-2005
Mensajes: 672
Antigüedad: 19 años, 11 meses
Puntos: 0
problemas al generar varios CreateObject("Scripting.FileSystemObject")

bueno pues tengo esta rutina en diferentes paginas ya que dependiendo
ciertas variables tengo que generar un listado de mis archivos en las carpetas



Código:
dim PathFTP1, PathFTP2, PathFTP3
dim urlFTP1, urlFTP2, urlFTP3
dim Subido

PathFTP1 = "c:\inetpub\wwwroot\material_distribuidores\NotasTecnicas"
PathFTP2 = "c:\inetpub\wwwroot\material_distribuidores\NotasOperativas"
PathFTP3 = "c:\inetpub\wwwroot\material_distribuidores\ReplicacionY_SQL"

urlFTP1 = "/material_distribuidores/NotasTecnicas/"
urlFTP2 = "/material_distribuidores/NotasOperativas/"
urlFTP3 = "/material_distribuidores/ReplicacionY_SQL/"

aqui creo el objeto
Código:
Dim fso, folderUsuario, ArchivosUsuario, respuesta

Set fso = CreateObject("Scripting.FileSystemObject") 
Código:
Function LeerFolder(PathFTP, urlFTP)
	Dim tmpArchivos, file, Contador, Color
	dim urlfile
	Set folderUsuario = fso.GetFolder(PathFTP)
	Set	ArchivosUsuario =  FolderUsuario.files

	tmpArchivos = ""
	Contador = 1
	For Each file in ArchivosUsuario 
		If Contador mod 2 = 0 then
			'' el color del fondo
			Color = "#E1E1E1"
		else
			Color = "#D1D1D1"
		end if	
	
		'urlfile = urlFTP & replace(server.urlencode(File.name), "+", "%20") 
		urlfile = urlFTP & File.name
		
		tmpArchivos = tmpArchivos & "  </tr>"
		tmpArchivos = tmpArchivos & "    <tr bgcolor=""" & Color & """>"
		tmpArchivos = tmpArchivos & "    <td><a href=""" & urlfile & """><b>" & HTMLEscape(File.name)  & "</a></b></td>"
		tmpArchivos = tmpArchivos & "    <td>" & File.datecreated & "</td>"
		tmpArchivos = tmpArchivos & "    <td align=right>" & Formatnumber(File.Size / 1048576, 2) & " MB</td>"
		tmpArchivos = tmpArchivos & "  </tr>"
		Contador = Contador + 1
	next
	if tmpArchivos = "" then
		tmpArchivos = "<tr><td colspan=4 align=center><b><br>Carpeta vacia<br><br></b></td></tr>"
	end if
	leerfolder = tmpArchivos
end function
el detalle fue que yo desde una pag inicial mando desplegar con divs mis diferentes paginas de la sig forma

<div id="contentb1" style=" display: none;"><!-- #include file = "basnegocios.asp"--></div>
<div id="contentb2" style=" display: none;"><!-- #include file = "puntoventa.asp"--></div>

y lo que hace es que como que se queda con el fso anterior y me muestra lo mismo en todos mis divs aunque en cada pagina.asp sean distintas las condiciones

como puedo cambiar o poner en blanco esas variables? o no se que es loque este pasando =S ayuda!!
__________________
" Recuerda , estas donde debes estar ..."
  #2 (permalink)  
Antiguo 27/09/2007, 18:46
Avatar de Gaby_Corr  
Fecha de Ingreso: junio-2005
Mensajes: 672
Antigüedad: 19 años, 11 meses
Puntos: 0
Re: problemas al generar varios CreateObject("Scripting.FileSystemObject")

bueno pues ya o solucione, tuve que cambiar el include y ponerle un Server.Execute y listo!!!!! =)
__________________
" Recuerda , estas donde debes estar ..."
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:35.