Indetectables

***
hola!.. necesitaba corregir una aplicación en VB6 ... el problema es el siguiente:

Necesitaba que al arrastrar un archivo a un textbox (OLEDragDrop) filtrase la extensión y sólo admitiese archivos de una extensión determinada, por ejemplo, archivos de texto (*.txt)... no admitiendo y generando el consiguiente msgbox de error para las demás extensiones.

Si alguien tiene tiempo y desea ayudarme.... Muchas Gracias!!.

tienes que tomar las ultimas 3 letras de la ruta, "C:\Blabla.txt" y comparar si es un txt, si lo es lo cargas en el textbox si no lanzas el mensaje, aqui el codigo

K-0Z escribió:tienes que tomar las ultimas 3 letras de la ruta, "C:\Blabla.txt" y comparar si es un txt, si lo es lo cargas en el textbox si no lanzas el mensaje, aqui el codigo

Código: Seleccionar todo

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

If Right(Data.Files(1), 3) = "txt" Then
   Text1.Text = Data.Files(1)
  Else
   MsgBox "Arrastre un fichero *.txt", vbCritical, Me.Caption
End If

End Sub

// Salu2

Perfectas las líneas!!

Resolvímos el problema adaptánlas al code... te quedamos infinitamente agradecidos!!

También te dejamos la aplicación corregida y dedicada por MP.

Gracias de nuevo, K-0Z!!.