Imagino que attributes te devuelve una colección, chekealo, si anda ms tiene
razón :D

 

De portalfox

 

Local  lc_original As String,FilSObj As Object,CapObj As Object,lCfile As
String,FilObj As Object




lc_original=Getdir()



lCfile=Getfile()



FilSObj=Createobject("Scripting.FileSystemObject")







**** Cambiar o Consultar atributos de Carpeta



If FilSObj.FolderExists(lc_original)



        CapObj=FilSObj.GetFolder(lc_original)



        ?CapObj.Attributes &&& Consultar



        CapObj.Attributes=0 &&& Modificar



Endif



**** Cambiar o Consultar atributos de Archivo



If FilSObj.FileExists(lCfile)



        FilObj=FilSObj.Getfile(lCfile)



        ?FilObj.Attributes &&& Consultar



        FilObj.Attributes=0 &&& Modificar



Endif




*!* Donde
*!* Constant Value Description
*!* Normal 0 Normal file. No attributes are set.
*!* ReadOnly 1 Read-only file. Attribute is read/write.
*!* Hidden 2 Hidden file. Attribute is read/write.
*!* System 4 System file. Attribute is read/write.
*!* Volume 8 Disk drive volume label. Attribute is read-only.
*!* Directory 16 Folder or directory. Attribute is read-only.
*!* Archive 32 File has changed since last backup. Attribute is read/write.
*!* Alias 1024 Link or shortcut. Attribute is read-only.
*!* Compressed 2048 Compressed file. Attribute is read-only.

 

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: Miércoles, 04 de Julio de 2007 02:16 p.m.
Para: GUFA List Member
Asunto: [GUFA] Ver/Modificar Atributos de Archivos en Disco desde Fox

 

No martín, con WSH solo acceso a atributos típicos de los archivos, pero no
logro ver los atributos avanzados tales como "comentarios",
"detalles","titulo","asunto","autor", etc…

Habrá que seguir Inverstigando.

Gracias.

Sebastián.

 

  _____  

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Martín Salías
Enviado el: martes, 03 de julio de 2007 14:01
Para: GUFA List Member
Asunto: [GUFA] Ver/Modificar Atributos de Archivos en Disco desde Fox

 

Hmmm... deberías buscar por el lado de Windows Script Host:

http://www.microsoft.com/spanish/msdn/comunidad/mtj.net/voices/art03.asp 

Saludos,
    /ms

On 7/3/07, [EMAIL PROTECTED] < [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> > wrote:

Hola a todos:

Me preguntaba si hay alguna forma de acceder (ver y modificar desde Fox) los
atributos tales como "comentarios", "detalles","titulo","asunto","autor",
etc…

La idea es mostrar y modificar atributos de archivos de fotos que están en
disco.

Gracias anticipadas.

Sebastián.




-- 
Martín Salías
www.Salias.com.ar
Agile Alliance Member - Microsoft MVP 



__________ Información de NOD32, revisión 2378 (20070704) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Responder a