Überprüfen ob sich Datein in einen Ordner befinden

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Tom72.

    Überprüfen ob sich Datein in einen Ordner befinden

    Halllo



    Ich bin ganz neu in VB. ich möchte gerne eine rotine schreiben. wo das
    Programm alle 5min in einen Ordner nachschaut ob eine Datei

    dazugekommen ist, und diese mittels MSGBOX anzeigt, wieviel datein in
    diesen Ordner sind. nach entleeren dieses ordner soll das programm von
    alleine nachschauen ob wieder eine datei dazugekomen ist, un diese
    wieder anzeigen.



    z.b: es befinden sich 5 datein im arbeitskorb



    danke

    Erstelle eine FileListBox und ein Timer in deiner Form und dann kopiere folgenen Code

    Visual Basic-Quellcode

    1. Dim iFileCount As Integer
    2. Dim iMinute As Integer
    4. Private Sub Form_Load()
    5. ' FileList Pfad festlegen
    6. File1.Path = "C:\Temp"
    7. ' Aktuelle Dateianzahl speichern
    8. iFileCount = File1.ListCount
    9. ' Minute auf 0 setzten
    10. iMinute = 0
    11. End Sub
    13. Private Sub Timer1_Timer()
    14. ' Minute um 1 erhöhen
    15. iMinute = iMinute + 1
    17. ' Wenn Minute größer oder gleich 5 ist wird die Bedingung ausgeführt
    18. If iMinute >= 5 Then
    19. ' Minute auf 0 setzten
    20. iMinute = 0
    21. ' FileList refreshen
    22. File1.Refresh
    23. ' Überpüfen ob in der FileList mehr Dateien sind als bei der Initialisierung
    24. If File1.ListCount > iFileCount Then
    25. iFileCount = File1.ListCount
    26. ' Messagebox anzeigen
    27. MsgBox ("Es befinden sich " & iFileCount & " Dateien im Arbeitskorb")
    28. End If
    29. End If
    30. End Sub


    Ich hoffe das ist was du meintest!

Facebook
Telefonspende