En este ejemplo arrastraremos un sin fin de archivos y el sistema nos da una cadena con caracteres raros y otros innecesarios.
Ejemplo de la info que da el sistema al arrastrar un archivo .mp3 obtenida mediante Drag.Data en el evento Drop:
file:///home/user10/Escritorio/Whitney%20Houston%20-%20I%20Have%20Nothing%20(Official%20Video).mp3
-28:-60:70:70
después del proceso:
/home/user10/Escritorio/Whitney Houston - I Have Nothing (Official Video).mp3
http://gambaswiki.org/wiki/lang/fromurl?l=es&nl
Necesario tener tildado componente gb.desktop para poder usar Desktop.Open()
' gambas class file
'by postapase
'https://novatocodegambas.blogspot.com.uy/
'Ejemplo de FromUrl
Public Sub Form_Drop()
Dim divide As New String[]
Dim Ruta As String
TextArea1.Text = Drag.Data
divide = Split(Drag.Data, "\r\n")
Ruta = String.Right(FromUrl$(divide[0]), -7)
TextBox1.Text = Ruta
If chkAuto.Value Then Desktop.Open(Ruta)
End
'by postapase
'https://novatocodegambas.blogspot.com.uy/
'Ejemplo de FromUrl
Public Sub Form_Drop()
Dim divide As New String[]
Dim Ruta As String
TextArea1.Text = Drag.Data
divide = Split(Drag.Data, "\r\n")
Ruta = String.Right(FromUrl$(divide[0]), -7)
TextBox1.Text = Ruta
If chkAuto.Value Then Desktop.Open(Ruta)
End
Descargar de DropBox: FromUrl-0.0.1.tar.gz
No hay comentarios.:
Publicar un comentario