VERSION 5.00
Begin VB.Form frmInput 
   Caption         =   "RRD MergeFiles"
   ClientHeight    =   6855
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7980
   Icon            =   "frmInput2.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6855
   ScaleWidth      =   7980
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdStart 
      Caption         =   "Start"
      Height          =   495
      Left            =   6240
      TabIndex        =   11
      Top             =   6240
      Width           =   1575
   End
   Begin VB.Frame Frame4 
      Caption         =   "Output Path"
      Height          =   615
      Left            =   240
      TabIndex        =   9
      Top             =   6120
      Width           =   5895
      Begin VB.Label lblPath 
         Caption         =   "-"
         ForeColor       =   &H00C00000&
         Height          =   195
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   5685
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Output bestand"
      Height          =   615
      Left            =   120
      TabIndex        =   7
      Top             =   5400
      Width           =   2415
      Begin VB.TextBox txtOutputBestand 
         Height          =   285
         Left            =   120
         TabIndex        =   8
         Text            =   "Output.csv"
         Top             =   240
         Width           =   2175
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Status"
      Height          =   615
      Left            =   2640
      TabIndex        =   5
      Top             =   5400
      Width           =   3495
      Begin VB.Label lblStatus 
         Caption         =   "Klaar"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   195
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   3255
      End
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK >>"
      Height          =   495
      Left            =   6240
      TabIndex        =   4
      ToolTipText     =   "Klik op OK om verder te gaan"
      Top             =   5520
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      Caption         =   "Selecteer het inputbestand"
      Height          =   4935
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   7695
      Begin VB.FileListBox File1 
         Enabled         =   0   'False
         Height          =   4185
         Left            =   3720
         Pattern         =   "*.csv;*.txt;*.xyz;*.asc"
         TabIndex        =   3
         ToolTipText     =   "Selecteer hier het bestand"
         Top             =   480
         Width           =   3735
      End
      Begin VB.DirListBox Dir1 
         Height          =   3690
         Left            =   120
         TabIndex        =   2
         ToolTipText     =   "Selecteer hier de map"
         Top             =   960
         Width           =   3495
      End
      Begin VB.DriveListBox Drive1 
         Height          =   315
         Left            =   120
         TabIndex        =   1
         ToolTipText     =   "Selecteer hier de (netwerk) drive"
         Top             =   480
         Width           =   3495
      End
   End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Declareer project locale variabele
Public outputBestand

Private Sub cmdOK_Click()
    'sluit bestand
    Close #1
    
    'Eindeprogramma
    End
    
End Sub

Private Sub cmdStart_Click()
    
    'Lees locatie doelbestand
    outputBestand = File1.Path + "\" + txtOutputBestand.Text
    lblPath.Caption = outputBestand
    
    'Open bestand
    Open outputBestand For Output As #1
    
    'Activeer invoerscherm
    File1.Enabled = True
    
    'Deactiveer de startknop
    cmdStart.Enabled = False
    
End Sub

Private Sub Dir1_Change()
    'Update de file structuur als het path wordt veranderd
    File1.Path = Dir1.Path
    
End Sub

Private Sub Drive1_Change()
Dim i As Integer
Dim tempDrive
   
'Set error trap
On Error GoTo errorHandler
 
    
    'Update de dir structuur als de drive wordt veranderd
    Dir1.Path = Drive1.Drive
    
    'Voorkom dat de errorHandler zonder reden wordt uitgevoerd
    Exit Sub
    
'Trap
errorHandler:

'Toon waarschuwing
i = MsgBox("Kan niet lezen vanaf het geselecteerde station, kies een ander station", vbCritical, "Leesfout!")

End Sub

Private Sub File1_Click()
'Declareer lokale variabelen
Dim helpFileName, sourceFile    'Voor selectie bestandsnaam
Dim textRegel                   '1e regel uit het geselecteerde bestand
Dim i As Integer

'Set error trap
'On Error GoTo errorHandler

    'Set de status op lezen en schrijven
    lblStatus.Caption = "Samenvoegen bestanden"
        
    'Select input file
    helpFileName = File1.filename
    sourceFile = File1.Path + "\" + helpFileName
        
    'Open input bestand
    Open sourceFile For Input As #2
    
    Do While Not EOF(2)
        'Lees eerste regel uit het besand
        Line Input #2, inputLine
        
        'Schrijf het bestand weg
        Print #1, inputLine
    
    Loop
    
    'sluit bestand
    Close #2
        
    'Set de status op gereed
    lblStatus.Caption = "Selecteer het volgende bestand"
        
    'Speel toon
    Beep
        
    'Voorkom dat de errorHandler zonder reden wordt uitgevoerd
    Exit Sub
        
'Trap
errorHandler:

'Toon waarschuwing
i = MsgBox("Lees fout, selecteer een geschikt bestand", vbCritical, "Fout")
    

    
End Sub