PROBLEMA CON IMAGENES JPG & GIF

Hola Rogelio: Pego de Fernando Reyes:

<Pego>
Mira si este script (cortesía de Marcial Carlés [MS MVP]) te arregla el problema; tienes que copiar lo que está entre <pego> y </pego> en el notepad, lo guardas con extensión VBS y lo ejecutas:

<pego>
'RepairImageAssoc.vbs
'© Doug Knox - - rev 02/18/2000
'Este código puede ser libremente distribuido/modificado
'Traducción de los comentarios al código y textos del cuadro de diálogo por Marcial Carlés.
'
Option Explicit

'Declarando las variables
Dim WSHShell, p1, p2, p3
Set WSHShell = WScript.CreateObject("WScript.Shell")
p2 = "\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\"
p3 = "{7376D660-C583-11d0-A3A5-00C04FD706EC}"

'Este código fue sugerido por Bill James
For Each p1 in Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf")
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next

p1 = ".tif"
p3 = "{1AEB1360-5AFC-11d0-B806-00C04FD706EC}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".tiff"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".htm"
p3 = "{EAB841A0-9550-11cf-8C16-00805F1408F3}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".html"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3

MsgBox "Las asociaciones predeterminadas para los archivos de imagen" & vbCR & "han sido restauradas.", 4096, "Confirmación"

Set WSHShell = Nothing
</pego>

<Pego>
Saludos :.


"Rogelio Hernández Méndez" escribió en el mensaje news:%
| Alguien sabe, como puedo arreglar el que no pueda ver las imagenes jpg &
| gif, en la vista prelimiar del explorador de windows o de las ventas para
| abrir un archivo dentro de windows 2000. Dicha plataforma tiene esa funcion
| al igual que XP, como una vista prelimiar.
|
| Gracias muy amables. Buen dia para todos.
|
| Rogelio Hernández Méndez
| MARNET, Computación e Internet
| Tel. +52 (499) 9721976 Celular 044 (449) 9089638
|
|

Muchas gracias Jorge:

Funciono sin problemas te agradezco.

Hasta pronto.

"Jorge Zeledon"
escribió
en el mensaje news:OAIe%
Hola Rogelio: Pego de Fernando Reyes:

<Pego>
Mira si este script (cortesía de Marcial Carlés [MS MVP]) te arregla el
problema; tienes que copiar lo que está entre <pego> y </pego> en el
notepad, lo guardas con extensión VBS y lo ejecutas:

<pego>
'RepairImageAssoc.vbs
'© Doug Knox - - rev 02/18/2000
'Este código puede ser libremente distribuido/modificado
'Traducción de los comentarios al código y textos del cuadro de diálogo por
Marcial Carlés.
'
Option Explicit

'Declarando las variables
Dim WSHShell, p1, p2, p3
Set WSHShell = WScript.CreateObject("WScript.Shell")
p2 = "\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\"
p3 = "{7376D660-C583-11d0-A3A5-00C04FD706EC}"

'Este código fue sugerido por Bill James
For Each p1 in
Array(".art",".bmp",".dib",".gif",".jfif",".jpe",".jpeg",".jpg",".png",".wmf
")
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
Next

p1 = ".tif"
p3 = "{1AEB1360-5AFC-11d0-B806-00C04FD706EC}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".tiff"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".htm"
p3 = "{EAB841A0-9550-11cf-8C16-00805F1408F3}"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3
p1 = ".html"
WSHShell.RegWrite "HKCR\" & p1 & p2, p3

MsgBox "Las asociaciones predeterminadas para los archivos de imagen" & vbCR
& "han sido restauradas.", 4096, "Confirmación"

Set WSHShell = Nothing
</pego>

<Pego>
Saludos :.


"Rogelio Hernández Méndez" escribió en el mensaje
news:%
| Alguien sabe, como puedo arreglar el que no pueda ver las imagenes jpg &
| gif, en la vista prelimiar del explorador de windows o de las ventas para
| abrir un archivo dentro de windows 2000. Dicha plataforma tiene esa
funcion
| al igual que XP, como una vista prelimiar.
|
| Gracias muy amables. Buen dia para todos.
|
| Rogelio Hernández Méndez
| MARNET, Computación e Internet
| Tel. +52 (499) 9721976 Celular 044 (449) 9089638
|
|