Visual Basic - Trabajo Con archivos

Life is soft - evento anual de software empresarial
 
Vista:

Trabajo Con archivos

Publicado por Alberto (1 intervención) el 07/09/2017 18:46:58
Buen dia tengo la siguiente necesidad

Tengo n archivos de texto en un carpeta todos tiene la misma estructura lo que necesito es unirlos todos en un solo archivo pero

Como puedo trabajar esto desde hace rato no trabajo con n VB


Gracias por la Ayuda
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
Imágen de perfil de Andres Leonardo
Val: 3.932
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Trabajo Con archivos

Publicado por Andres Leonardo (1739 intervenciones) el 07/09/2017 21:42:00
UN proyecto
Referencia Script RunTIME

Un dir , un drive unos labels y un boton

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Command1_Click()
Dim cont As Double
Dim fs As New FileSystemObject
Dim temporal As Folder
Dim Archivo As File
Dim nCarpetas, F, i As Integer
Dim TEXTO, motivo As String
On Error Resume Next
Dim filename As String
cont = 0
filename = Dir1.Path & "\BASEx.TXT"   'App.Path & "\Print01.0000"
 F = 1
 i = 2
Set temporal = fs.GetFolder(Dir1.Path) ' La carpeta donde estara el archivo. 
 
 
nCarpetas = temporal.SubFolders.Count
 
Screen.MousePointer = vbHourglass
For Each Archivo In temporal.Files  ' por cada archivo
cont = cont + 1
Label1.Caption = cont
 
            Open Archivo For Input As F
                 While Not EOF(F)
                    Line Input #F, Texto
                Wend
             Close F
 
           Open filename For Append As i
                        Print #i, Texto
           Close i
 
 Next Archivo
'*
    'DoEvents
Screen.MousePointer = vbDefault
Label1.Caption = cont & " Archivos Procesados·"
MsgBox "Proceso Completado"
 
End Sub
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