Visual Basic - Subir archivos a visual basic

Life is soft - evento anual de software empresarial
   
Vista:

Subir archivos a visual basic

Publicado por Paola (2 intervenciones) el 13/04/2015 22:27:10
Buenas tardes, deseo realizar lo siguiente, espero me ayuden:

Tengo dos archivos en formato csv, lo que quiero hacer es poder crear dos botones en visual basic 6 donde me de la opción de poder seleccionar los archivos mediante un directorio. Es decir que al hacer click en el botón me arroje una raiz y pueda ir seleccionando hasta encontrar el archivo.

kb90-004_es

Aguardo su respuesta. Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Subir archivos a visual basic

Publicado por Pedro Luis (56 intervenciones) el 14/04/2015 12:31:50
Se supone que el usuario tiene que escoger un lugar donde poner la copia de seguridad, que es algo parecido a lo que quieres hacer
Usamos Drive1 para elegir la unidad (DriveListBox) y Dir 1 (DirlistBox) para elegir el directorio
Faltaria FileListBox para elegir el archivo.

Private Sub Boton_Click(Index As Integer)
Select Case Index
Case 1
Inicial.Unidad = Dir1.path + "\"
Inicial.Conforme = True
Case 2
Conforme = False
End Select
Unload Me
End Sub

Private Sub Dir1_Change()
Label3 = "Se copiará en " + Dir1.path
End Sub

Private Sub Drive1_Change()
On Error GoTo Errores
Dir1.path = Drive1.Drive
Label3 = "Se copiará en " + Dir1.path
Exit Sub
Errores:
If Err.Number = 68 Then
MsgBox (Err.Description)
Resume Next
End If
End Sub

Private Sub Form_Load()
Centrar Me
Label2 = Fichero
Label3 = "Se copiará en " + Dir1.path
Dir1.path = Drive1.Drive
End Sub
conta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Subir archivos a visual basic

Publicado por Juan Gilberto (278 intervenciones) el 14/04/2015 16:47:41
Tambien puedes utilizar el control de dialogos y utilizar el correspondiente a abrir archivos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar