List
Hola
Tengo un problema con un objeto List
Espero que me ayudes.
Como hago para seleccionar todos los elementos de la lista a la misma vez.
Como hago para copiar el elemento seleccionado a un disquete(el elemento seleccionado es el path de un archivo)(Probé con esta sentencia pero no me sirvió: FileCopy "List1.ListIndex, "A:\")
Gracias Espero que no se de mucha molestia.
Tengo un problema con un objeto List
Espero que me ayudes.
Como hago para seleccionar todos los elementos de la lista a la misma vez.
Como hago para copiar el elemento seleccionado a un disquete(el elemento seleccionado es el path de un archivo)(Probé con esta sentencia pero no me sirvió: FileCopy "List1.ListIndex, "A:\")
Gracias Espero que no se de mucha molestia.
1 respuesta
Respuesta de manusoftar
1
Te mando un ejemplo que hice para que veas un poco como funciona; hacé un formulario que contenga un commondialog llamado commondialog1, un textbox llamado text1, un listbox llamado list1, un filelistbox llamado file1, un dirlist llamado dir1, un drivelist llamado drive1 y un botón llamado command1 y pegá el siguiente código:
Private Sub Command1_Click()
CommonDialog1.ShowSave
For c = 0 To List1.ListCount
On Error GoTo 5
If List1.Selected(c) Then
Text1.Text = List1.List(c)
Open CommonDialog1.filename For Append As 1
Print #1, Text1.Text
Close 1
Text1.Text = ""
End If
Next c
5 End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
List1.Clear
1 For e = 1 To File1.ListCount
On Error GoTo 6
File1.ListIndex = e
List1.AddItem File1.Path & "\" & File1.filename
Next e
File1.filename
6 End Sub
Private Sub dir1_Change()
File1.Path = Dir1.Path
List1.Clear
For e = 1 To File1.ListCount
On Error GoTo 2
File1.ListIndex = e
List1.AddItem File1.Path & "\" & File1.filename
Next e
2 End Sub
Private Sub Form_Load()
Drive1.Drive = "C:\"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
For e = 1 To File1.ListCount
List1.AddItem Dir1.Path & File1.List(e)
Next e
End Sub
Atentamente. Manuel Fernández.
Private Sub Command1_Click()
CommonDialog1.ShowSave
For c = 0 To List1.ListCount
On Error GoTo 5
If List1.Selected(c) Then
Text1.Text = List1.List(c)
Open CommonDialog1.filename For Append As 1
Print #1, Text1.Text
Close 1
Text1.Text = ""
End If
Next c
5 End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
List1.Clear
1 For e = 1 To File1.ListCount
On Error GoTo 6
File1.ListIndex = e
List1.AddItem File1.Path & "\" & File1.filename
Next e
File1.filename
6 End Sub
Private Sub dir1_Change()
File1.Path = Dir1.Path
List1.Clear
For e = 1 To File1.ListCount
On Error GoTo 2
File1.ListIndex = e
List1.AddItem File1.Path & "\" & File1.filename
Next e
2 End Sub
Private Sub Form_Load()
Drive1.Drive = "C:\"
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
For e = 1 To File1.ListCount
List1.AddItem Dir1.Path & File1.List(e)
Next e
End Sub
Atentamente. Manuel Fernández.
