Bueno amigos les traigo el SRC de este Escaner mio
es algo simple pero ojala le sirva a alguien
Descarga : [Enlace externo eliminado para invitados]
PD . No sean malos y por favor no me critiquen por mi forma de codear jeje ya que debe tener mil errores.
si quieren que el escaner permita drag and drop de archivos y carpetas y no solo de carpetas , borren lo que esta marcado con rojo en el SRC:
Private Sub Txtscan_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If ArchivoE.ArchivoE(Data.Files(1)) = True Then
MsgBox "Solo carpetas", vbInformation
Exit Sub
Else
txtscan.Text = Data.Files(1)
End If
End Sub
quedando asi:
Private Sub Txtscan_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
txtscan.Text = Data.Files(1)
''Funcion de AX
End Sub
♪♪ 2pac & Notorius B.I.G ♪♪
¿Por qué estoy luchando para vivir cuando estoy solo viven para luchar,
¿Por qué estoy tratando de ver cuando no hay nada a la vista,
¿Por qué estoy tratando de dar cuando nadie me da una oportunidad,
¿Por qué estoy muriendo para vivir cuando yo estoy viviendo para morir.♪♪
