Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Funcion Que Devuelve Información De Un Archivo.
Autor Mensaje
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 usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Funcion Que Devuelve Información De Un Archivo. 
 
+++A

¡Estupendo!
 



 
Grandamakulo - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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 usuarioEnviar mensaje privado 
Volver arribaPágina inferior
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


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario