Private Const globs As String = "/usr/share/mime/globs"
Public Sub Main()
Dim prog, carpeta, s, rutafd As String
' Especifica el programa que está ejecutando el archivo medial:
prog = "vlc"
' Inserta el identificativo de cada carpeta presente en "/proc":
For Each carpeta In Dir("/proc", Null, gb.Directory)
' Comproba si la carpeta contiene el archivo "comm":
If Exist("/proc" &/ carpeta &/ "comm") Then
' Carga el contenido del archivo "comm":
s = File.Load("/proc" &/ carpeta &/ "comm")
' Comproba si el texto, contenido en el archivo "comm", es similar a aquel contenido en la variable "prog".;
' es decir si la carpeta actual es relativa al proceso del programa indicado en la variable "prog":
If s Like "*" & prog & "*" Then
rutafd = "/proc" &/ carpeta &/ "fd"
' Inserta el nombre de cada archivo de tipo "enlace simbólico" en la variable "s":
For Each s In Dir(rutafd, Null, gb.Link)
' Comproba si es posible el acceso a el archivo identificado como tipo "enlace simbólico":
If Access(rutafd &/ s) Then
' Comproba si el archivo enlazado está accesible:
If Access(Stat(rutafd &/ s).Link) Then
' Llama a la Procedura "BuscaMime":
BuscaMime(Stat(rutafd &/ s).Link)
Endif
Endif
Next
Endif
Endif
Next
If rutafd = Null Then Print "El programa '"; prog & "' actualmente no está funcionando !"
End
Private Procedure BuscaMime(audvid As String)
Dim s As String
' Combroba si el tamaño del archivo actual es major que 0:
If Stat(audvid).Size > 0 Then
' Comproba si la extensión del archivo actual está nel archivo "/usr/share/mime/globs":
If InStr(File.Load(globs &/ s), "." & LCase(File.Ext(audvid))) Then
' Muestra la ruta del archivo actual ejecutado por el programa audio/video utilizado:
Print audvid
Endif
Endif
End
Public Sub Main()
Dim prog, carpeta, s, rutafd As String
' Especifica el programa que está ejecutando el archivo medial:
prog = "vlc"
' Inserta el identificativo de cada carpeta presente en "/proc":
For Each carpeta In Dir("/proc", Null, gb.Directory)
' Comproba si la carpeta contiene el archivo "comm":
If Exist("/proc" &/ carpeta &/ "comm") Then
' Carga el contenido del archivo "comm":
s = File.Load("/proc" &/ carpeta &/ "comm")
' Comproba si el texto, contenido en el archivo "comm", es similar a aquel contenido en la variable "prog".;
' es decir si la carpeta actual es relativa al proceso del programa indicado en la variable "prog":
If s Like "*" & prog & "*" Then
rutafd = "/proc" &/ carpeta &/ "fd"
' Inserta el nombre de cada archivo de tipo "enlace simbólico" en la variable "s":
For Each s In Dir(rutafd, Null, gb.Link)
' Comproba si es posible el acceso a el archivo identificado como tipo "enlace simbólico":
If Access(rutafd &/ s) Then
' Comproba si el archivo enlazado está accesible:
If Access(Stat(rutafd &/ s).Link) Then
' Llama a la Procedura "BuscaMime":
BuscaMime(Stat(rutafd &/ s).Link)
Endif
Endif
Next
Endif
Endif
Next
If rutafd = Null Then Print "El programa '"; prog & "' actualmente no está funcionando !"
End
Private Procedure BuscaMime(audvid As String)
Dim s As String
' Combroba si el tamaño del archivo actual es major que 0:
If Stat(audvid).Size > 0 Then
' Comproba si la extensión del archivo actual está nel archivo "/usr/share/mime/globs":
If InStr(File.Load(globs &/ s), "." & LCase(File.Ext(audvid))) Then
' Muestra la ruta del archivo actual ejecutado por el programa audio/video utilizado:
Print audvid
Endif
Endif
End
Albacete
