Visual Basic - Como ver las propiedades de 1 archivo

Existe alguna "API" (o manera) que me permita mostrar el cuadro de
de propiedades de un archivo pasandole la ruta del mismo (ó algo así).

Me refiero a ese cuadro q aparece cuando hacemos clic derecho
sobre un archivo en windows y luego clic en propiedades.

si esto es así por favor mandenme un ejemplo que me pueda ayudar en
este fin o cualquier informacion util.

jorgelinares...

Mirate el objeto fso que tiene muchas funciones y propiedades para trabajar con archivos aqui abajo te dejo un ejemplo pero si buscas en la red en referencia a fso encontraras mas cosas.
Un saludo.
Propiedad Attributes
Establece o devuelve los atributos de archivos o carpetas. Lectura y escritura o sólo lectura, según el atributo.

objeto.Attributes [= nuevosatributos]

Argumentos
objeto

Necesario. Siempre el nombre de un objeto File o Folder.

nuevosatributos

Opcional. Si se proporciona, nuevosatributos es el nuevo valor para los atributos del objeto especificado.

Valores
El argumento nuevosatributos puede tener cualquiera de los siguientes valores o cualquier combinación lógica de los siguientes valores:

Constante Valor Descripción
Normal 0 Archivo normal. No se establece ningún atributo.
ReadOnly 1 Archivo de sólo lectura. El atributo es de lectura y escritura.
Hidden 2 Archivo oculto. El atributo es de lectura y escritura.
System 4 Archivo de sistema. El atributo es de lectura y escritura.
Directory 16 Carpeta o directorio. El atributo es de sólo lectura.
Archive 32 El archivo ha cambiado desde la última copia de seguridad. El atributo es de lectura y escritura.
Alias 1024 Hipervínculo o acceso directo. El atributo es de sólo lectura.
Compressed 2048 Archivo comprimido. El atributo es de sólo lectura.

Comentarios
Los intentos para cambiar cualquiera de los atributos de sólo lectura (Alias, Compressed o Directory) se omiten.

Cuando se establecen los atributos, es una buena idea leer primero los atributos actuales, después, cambiar los atributos individuales como desee, y finalmente escribir de nuevo los atributos.

La siguiente porción de código ilustra el uso de la propiedad Attributes con un archivo:

Function AlternarBitDeArchivo(nombreArchivo)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(nombreArchivo)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
AlternarBitDeArchivo = "Se ha borrado el bit de archivo."
Else
f.attributes = f.attributes + 32
AlternarBitDeArchivo = "Se ha establecido el bit de archivo."
End If
End Function

En esta dirección tenes un ejemplo que te abre el cuador de dialogo Propiedades de archivo, passandole a una funcion su respectivo path

http://ar.geocities.com/recursosvb/htm/listadodecodigosvisualbasic7.htm

Salu2 y cualquier cosa escribe por si no lo entendiste

Luciano trate de entrar a la URL q me diste pero me dice:

--------------------------------------------------------------------------------


¡Lo sentimos! Este sitio está temporalmente inaccesible.

El sitio al que estás intentando acceder ha excedido su tasa de transferencia de datos.
El acceso a este sitio será restablecido dentro de una hora. Por favor, intentalo nuevamente más tarde.
http://ar.geocities.com/recursosvb/htm/listadodecodigosvisualbasic7.htm .

Si seguís encontrando problemas, visitá nuestra área de ayuda para información y asistencia.

Algunos enlaces útiles......
Yahoo! GeoCities - construí tu propio sitio en Internet
Yahoo! - el punto de partida para todo Yahoo! Buscar en Yahoo! GeoCities
--------------------------------------------------------------------------------
Copyright © 2001 Yahoo! Inc. Todos los derechos reservados.


Así q si me puedes mandar el ejemplo a mi correo seria magnifico.
Gracias por la ayuda hermano.

Hola, ya podés entrar, si llega a pasar lo mismo esperá un rato que podés entrar sin problemas. En menos de unas semanas cambio a un servidor de pago porque esto de las transferencias de geocities ya me tiene las pelotas llenas

SAludos

Luciano

Muchas gracias Luciano ya pude ver tu ejemplo a penas salga de este cyber me voy a probarlo a casa...

Saludos desde Venezuela...