34 lines
945 B
Plaintext
34 lines
945 B
Plaintext
' Gambas class file
|
|
|
|
Public Sub Form_Open()
|
|
Me.x = FMain.x + 10
|
|
Me.y = FMain.y + 10
|
|
escogeFichero.Filter = ["*.pdf", ("Ficheros PDF")]
|
|
End
|
|
|
|
Public Sub botonCANCELAR_Click()
|
|
FMain.botonSeleccionarPDF.Tag = ""
|
|
FMain.Frame1.Enabled = False
|
|
Me.Close
|
|
End
|
|
|
|
Public Sub botonACEPTAR_Click()
|
|
Dim tipo As String
|
|
Dim fichero As String
|
|
fichero = escogeFichero.SelectedPath
|
|
' No creemos al usuario.. veamos si es un PDF...
|
|
Shell "echo -n $(file " & fichero & "|awk -F ':' '{print $2}'|grep -i 'pdf'|wc -l)" To tipo
|
|
If tipo <> "0"
|
|
' file fichero |awk -F ': ' '{print $2}'|grep -i "pdf"|wc -l
|
|
' Enviamos como STRING la URL absoluta del fichero
|
|
FMain.botonSeleccionarPDF.Tag = escogeFichero.SelectedPath
|
|
FMain.Frame1.Enabled = True
|
|
Me.Close
|
|
Else
|
|
' No es un PDF
|
|
FMain.Frame1.Enabled = False
|
|
Message.Title = ("ERROR - Fichero PDF")
|
|
Message.Error("El fichero seleccionado no es un PDF")
|
|
Endif
|
|
End
|