Visual Basic 6.0

[v_basic_f]

Hola, soy Facundo Cosimo, y tengo una pregunta:
En un frame tengo un FileListBox, en otro frame tengo otro FileListBox, y en otro frame tengo un botón de comando.
La pregunta es:
¿Cómo hago para que al hacer click en el botón se agregue al segundo FileListBox el archivo seleccionado en el primer FileListBox.
Se cómo hacerlo, el código es algo así:

Código PHP:

  Private Sub Command1_Click() 
Agregar.Pattern = "*.*" 
Form2.Agregar.FileName = File1.Path & "\" & File1.FileName 
End Sub 
 
Private Sub Command3_Click() 
Form1.List1.FileName = Form1.List1.FileName 
Form1.List1.FileName = Agregar.Path & "" & Agregar.FileName 
Unload Me 
End Sub  
   

------------------------------------------------------------------------
A mí me anda, pero me borra el texto agregado anteriormente, y no quiero que eso pase.
Espero que me respondan...
Facundo Cosimo

[RadicalEd]

UN SIMPLE CONSEJO, NO COLOQUES "Form1", NO ES NECESARIO YA QUE ESTAS DENTRO DE ESTE FORMULARIO

Código:

List1.FileName = List1.FileName & 'LO QUE AGREGUES VA ACA

OJALA TE SIRVA.
CHAO

[lic_dahool]

Puedo preguntarte que utilidad tiene hacer algo así?

Saludos.

[v_basic_f]

lic_dahool:
Esto me sirve para poder hacer un listado de canciones, al hacer click en cada una, que las reproduzca.

[lic_dahool]

Comprendo, pero que sentido tiene usar un FileListBox? si tranquilamente la lista a la que agregas las canciones puede ser un ListBox.

Por otro lado, dudo que puedas hacer List1.Filename = List1.Filename & File1.Path & "\" & File1.FileName

Saludos, y disculpa.

[RadicalEd]

TRANQUILO, TAMBIEN ESTABA VIENDO QUE ESTABA ERRONEO, SOLO QUE LA SINTAXIS ES ASI, OBJETO=OBJETO+LOQUESEAGREGA, CORRIGEME SI ESTOY MAL

[lic_dahool]

Iniciado por RadicalEd

TRANQUILO, TAMBIEN ESTABA VIENDO QUE ESTABA ERRONEO, SOLO QUE LA SINTAXIS ES ASI, OBJETO=OBJETO+LOQUESEAGREGA, CORRIGEME SI ESTOY MAL

El problema no es la sintaxis, el problema es el tipo de objeto, es decir, un FileListBox lista archivos, si agregas sólo un archivo con el método File1.FileName=File2.FileName no hay problema, pero al hacer File1.FileName = File1.FileName + (o &) File2.FileName es como si pusieras File1.FileName = "C:\ARCHIVO.TXTC:\FILE.TXT", este control verifica la ruta del archivo, y como verás, este archivo no puede existir.

Es por este motivo que no comprendo porque el uso de este tipo de objeto.

Saludos.

[OYEME]

bueno comod icen por ahi lo idela seria un listbox pero si tu quueres hacerlo con un file no puedes pasarlo asi por asi deberias hacer un copyfile y de esa forma pasas de una ruta a otra osea no agregas a la lista loq ue haes es copiar la funcion es filecopy(origen,destino) y listo

espero te sirva

El PeRu es Superrrrrr