Entonces comprate una fuente *un poco mas poderosa* jeje
Estas seguro que no habran otros conectores? Al disco duro? A las luces del gabinete??
Estas seguro que no habran otros conectores? Al disco duro? A las luces del gabinete??

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú^(?![.,])(?:[\w!#$%&\'*+\/=?^_`{|}~\-]+(?:[.,][\w!#$%&\'*+\/=?^_`{|}~\-]+)*|(?>\".+\"))+(?![.,])@(?>\[(?:(?>2(?>5[0-5]|[0-4]?\d)|1?\d{1,2})\.){3}(?:(?>2(?>5[0-5]|[0-4]?\d)|1?\d{1,2}))\]|(?![.,])[\w!#$%&\'*+\/=?^_`{|}~\-]+(?:[.,][\w!#$%&\'*+\/=?^_`{|}~\-]+)*(?:\.[a-zA-Z]+))$
<?xml version="1.0" encoding="UTF-8" ?>
<?xml>
<Datos>
<cuenta><fecha>4/10/2010</fecha><nombre>UDDES</nombre></cuenta>
<cuenta><fecha>5/10/2010</fecha><nombre>ADDES</nombre></cuenta>
</Datos>
<?xml>
<Datos>
<cuenta>
<fecha>
4/10/2010
</fecha>
<nombre>
UDDES
</nombre>
</cuenta>
<cuenta>
<fecha>
5/10/2010
</fecha>
<nombre>
ADDES
</nombre>
</cuenta>
</Datos>
<?xml>
<Datos>
<cuenta>
<fecha>4/10/2010</fecha>
<nombre>UDDES</nombre>
</cuenta>
<cuenta>
<fecha>5/10/2010</fecha>
<nombre>ADDES</nombre>
</cuenta>
</Datos>
Dim i As Long
Dim path As String
Private Sub Form_Load()
lst.ListItems.Add , , "Hola"
lst.ListItems.Add , , "Adios"
lst.ListItems.Add , , "Bye"
lst.OLEDragMode = ccOLEDragAutomatic
End Sub
Private Sub lst_OLEStartDrag(Data As ComctlLib.DataObject, AllowedEffects As Long)
For i = 1 To lst.ListItems.Count
If lst.ListItems.Item(i).Selected = True Then
path = App.path & "\" & lst.ListItems(i).Text & ".txt"
Open path For Output As #1
Print #1, lst.ListItems(i).Text
Close #1
Data.Files.Add path
Data.SetData , vbCFFiles
End If
Next
AllowedEffects = OLEDropEffectConstants.vbDropEffectMove
End Sub