Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Funcion Que Devuelve Información De Un Archivo.

Funcion Que Devuelve Información De Un Archivo.
Artículo
Responder citando    Descargar mensaje  
Mensaje Funcion Que Devuelve Información De Un Archivo. 
 
Hola a todos.
Necesitaba averiguar los inodes de los archivos, para un programa que estoy haciendo para acomodar fotos por fechas.
Como saben gambas tiene la función Stat que sirve para obtener información de un archivo (también de un directorio) pero, no se por que, no devuelve el inode como stat de GNU (que devuelve 30 datos) así que se me ocurrió esta función que aquí comparto, con eficiencia mejorable, claro esta, pero funciona.
Si a alguien se le ocurre una forma mejor, no dude en comentarla.
Public Function XStat(f As String) As Collection

  Dim cn As New Collection
  Dim ino As String
  Dim ex As String
  Dim mim As String
  Dim ver As String

  If Exist(f) Then
    If Stat(f).Type = gb.File Then
      cn.Add(Stat(f).Auth, "Auth")
      cn.Add(Stat(f).Group, "Group")
      cn.Add(Stat(f).Hidden, "Hidden")
      cn.Add(Stat(f).LastAccess, "LastAccess")
      cn.Add(Stat(f).LastChange, "LastChange")
      cn.Add(Stat(f).LastModified, "LastModified")
      cn.Add(Stat(f).Link, "Link")
      cn.Add(Stat(f).Mode, "Mode")
      cn.Add(Stat(f).Path, "Path")
      cn.Add(Stat(f).Perm, "Perm")
      cn.Add(Stat(f).SetGID, "SetGID")
      cn.Add(Stat(f).SetUID, "SetUID")
      cn.Add(Stat(f).Size, "Size")
      cn.Add(Stat(f).Sticky, "Sticky")
      cn.Add(Stat(f).Time, "Time")
      cn.Add(Stat(f).Type, "Type")
      cn.Add(Stat(f).User, "User")
      Shell "stat -c %i '" & f & "' 2>&1" To ino
      ino = Replace(ino, "\n", "")
      cn.Add(ino, "Inode")
      ex = File.Ext(Stat(f).Path)
      cn.Add(ex, "Ext")
      mim = DesktopMime.FromFile(f).Type
      cn.Add(mim, "Mime")
      ver = fil.FileVersion(f)
      cn.Add(ver, "Version")
    Endif
  Endif
  Return cn
End
 


Saludos.



 
tincho - Ver perfil del usuario Enviar mensaje privado  
tincho [ Sabado, 21 Diciembre 2019, 19:41 ]
 


Funcion Que Devuelve Información De Un Archivo.
Comentarios
Responder citando    Descargar mensaje  
Mensaje Re: Funcion Que Devuelve Información De Un Archivo. 
 
+++A

¡Estupendo!



 
Grandamakulo - Ver perfil del usuario Enviar mensaje privado  
Grandamakulo [ Domingo, 22 Diciembre 2019, 10:48 ]
Responder citando    Descargar mensaje  
Mensaje Re: Funcion Que Devuelve Información De Un Archivo. 
 
Propongo esta pagina... sin Shell:

https://www.gambas-it.org/wiki/inde...nerali_dei_file



 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Domingo, 22 Diciembre 2019, 20:58 ]
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
10.00 10 10 1
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno