Mitarbeiter\Bestellungen\BST-Klein-7083.doc	01.02.2001
Mitarbeiter\Fax\FAX-Hesse-010201.doc	01.02.2001
Allgemein\Information\aluplastPreisänderung.xls	01.03.2001
Mitarbeiter\Anfragen\ANF-Semperit-020301.doc	01.03.2002
Allgemein\Korrespondenz\KR-030401-KhKo.doc	01.04.2003
Mitarbeiter\Sommer Christian\1. Ak EInkauf 030317-sto.doc	01.09.2003
Mitarbeiter\Sommer Christian\Excel\Preisvergleichstabelle _
  Dichtung.XLS	01.10.2003
Mitarbeiter\Sommer Christian\Word\Fax\RgKorr 130945.doc	01.10.2003
Mitarbeiter\Sommer Christian\Word\Fax\RgKorr 130958.doc	01.10.2003
Mitarbeiter\Bestellungen\BST-MTS-7052.doc	01.12.2000
Mitarbeiter\Bestellungen\BST-Glahe-7120.doc	02.04.2001
Mitarbeiter\Bestellungen\BST-Tendi-7355.doc	02.04.2002
Mitarbeiter\Bestellungen\BST-UWB-7354.doc	02.04.2002
Mitarbeiter\Fax\Fax-RKT-000502.doc	02.05.2000
Mitarbeiter\Bestellungen\BST-Normunsginst.-7134.doc	02.05.2001
Mitarbeiter\Bestellungen\BST-Schallenk.-7381.doc	02.05.2002
Mitarbeiter\Sommer Christian\Inventur 03\Inventur 03-04.xls	02.05.2003
Allgemein\Lieferanten\Urban\KR-030602-NiHue-Urban GmbH.doc	02.06.2003
Mitarbeiter\Bestellungen\ANF-Fux-020603.doc	02.06.2003
Mitarbeiter\Bestellungen\BST-AD-EINS-7267.doc	02.06.2003
Mitarbeiter\Bestellungen\BST-Handl-7843.doc	02.06.2003
Mitarbeiter\Bestellungen\BST-ABB-7159.doc	02.07.2001
Mitarbeiter\Bestellungen\BST-Schallenk.-7157.doc	02.07.2001
Mitarbeiter\Bestellungen\BST-Homag-7454.doc	02.07.2002
Mitarbeiter\Bestellungen\BST-Ruff-7455.doc	02.07.2002
Mitarbeiter\Bestellungen\BST-FISA-7862.doc	02.07.2003
Mitarbeiter\Bestellungen\BST-Neuland-7176.doc	02.08.2001
Mitarbeiter\Bestellungen\BST-AVE-7497.doc	02.08.2002
Mitarbeiter\Anfragen\ANF-Greiner-010816.doc	02.09.2002
Mitarbeiter\Bestellungen\BST-Kaindlr-7467.doc	02.09.2002

Private Sub cmd_OK_Click()
 DoEvents
Load frm_progress
  With frm_progress
    ShowProgress .picProgress, 0, 0, 0
    .Show
    DoEvents
    frm_progress.Show
    DoEvents
  Dim F As Integer
  Dim sLine As String
  frm_Main.sev_List2.Clear
  Dim Pfadangabe As String
    Pfadangabe = File1.FileName
  F = FreeFile
  Open App.path & "\daten\stand\" & Pfadangabe For Input As #F
  While Not EOF(F)
   ShowProgress .picProgress, i, 0, lCount
      DoEvents
      .picProgress.Refresh
    Line Input #F, sLine
    frm_Main.sev_List2.AddItem , sLine
    ShowProgress .picProgress, i, 0, lCount
      DoEvents
Wend
  DoEvents
   ShowProgress .picProgress, i, 0, lCount
      DoEvents
  Close #F
  frm_Main.txt_AktuellerStand.Text = Pfadangabe
  MsgBox ("Datenstand erfolgreich eingelesen"), vbOKOnly, ("Komplett!")
  Unload frm_Datenstand
  End With
  Unload frm_progress
 
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)