Foros del Web » Programación para mayores de 30 ;) » Programación General »

propiedades de archivos desde VB

Estas en el tema de propiedades de archivos desde VB en el foro de Programación General en Foros del Web. Necesito Saber como puedo obtener las propiedades de los archivos (nombre, extencion, tipo, tamaño, direccion, etc) desde una aplicacion en visual basic...
  #1 (permalink)  
Antiguo 19/11/2003, 11:47
 
Fecha de Ingreso: noviembre-2003
Mensajes: 3
Antigüedad: 20 años, 5 meses
Puntos: 0
propiedades de archivos desde VB

Necesito Saber como puedo obtener las propiedades de los archivos (nombre, extencion, tipo, tamaño, direccion, etc) desde una aplicacion en visual basic
  #2 (permalink)  
Antiguo 19/11/2003, 15:33
 
Fecha de Ingreso: noviembre-2003
Ubicación: España->Madrid
Mensajes: 368
Antigüedad: 20 años, 5 meses
Puntos: 0
Sonrisa Prueba con esto

MIra crea un boton y en el evento al acer click...

longitud=filelen("c:/prueba.doc")
print longitud
fecha=filedate("c:/prueba.doc")
print fecha
atrib=fileattr("...")
print atrib

lo unico q en atrib t aparecera un numero q sera igual a la suma de todos los valores representantes de cada opcion...

vbNormal 0 Normal
vbReadOnly 1 Sólo lectura
vbHidden 2 Oculto
vbSystem 4 Sistema
vbDirectory 16 Directorio
vbArchive 32 El archivo ha cambiado desde su última copia

espero q t sirva....

(si kieres que cada vez sea con un archivo nuevo...
dim doc as string
doc=inputbox("introduzca la ruta de acceso del archivo que desea revisar:","Titulo")
y en vez de poner la ruta en cada parametro metes el nombre doc y listo)
  #3 (permalink)  
Antiguo 19/11/2003, 15:44
 
Fecha de Ingreso: agosto-2002
Ubicación: Santiago, CHILE
Mensajes: 25
Antigüedad: 21 años, 8 meses
Puntos: 0
Todo lo relacionado con archivos en VB se denomina FSO o File System Object, manipulando este tipo de objecto puedes crear, eliminar, ver propiedades, etc.

ejemplo de instanciación del objecto : (VB o Vb Script)

Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\")
Tamanofolder = f.size & " bytes."
'Response.Write "Tamaño Folder : " & Tamanofolder
__________________
ATTE.
Franco A. Gomara G.
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 21:47.