Ako sa pozerať na priečinok na VB6

dáta z externých zdrojov , ako sú e - mailu alebo iných programov je často dodávaná do určitej zložky identifikované v sieti . Že zložka je potrebné sledovať prichádzajúce súbory akýkoľvek program , ktorý vyžaduje , aby informácie . Program ( y ) , ktorý sleduje zložku zvyčajne číta a spracováva obsah súborov prijatých v určenej zložke , a potom sa presunie súbory do iného priečinka , alebo odstráni . Program sleduje zložku môžete slepo spracovať každý súbor , ako to príde , alebo kontrolovať " DateLastModified " vlastnosť súboru , ktorý chcete vidieť , keď niečo nové dorazil . Pokyny dovolená 1

Vytvoriť nový štandardné EXE projekt jazyka Visual Basic . Vyberte " projekt " , " Odkazy " a kliknite na políčko " Microsoft Scripting Runtime . " Kliknite na tlačidlo " OK " uložte zmeny a zatvorte .
2

deklarovať a vytvoriť inštanciu odkaz na FileSystemObject .

Dim oFSO As New Scripting.FileSystemObject

Drop nový timer objekt na predvolené " Form1 " a nastavíte interval na číslo predstavujúce počet milisekúnd čakania . Napríklad , nastavenie intervalu 2000 počká 2 sekundy .
3

Kód logika pre čo by malo nastať , ak sú 2 sekundy hore . Program sleduje určenú zložku a kontroluje každé 2 sekundy , aby zistili , či nový súbor dorazil . Napíšte kód vo vnútri " Time1_Timer ( ) " skontrolovať zložku s názvom " NewArrivals . " Je-li počet je väčší ako nula , súbor dorazil .

Ak oFSO.GetFolder ( " NewArrivals " ) . Files.Count > 0 Then
4

Pozrite sa na " DateLastModified " Vlastnosť súboru nájdené v " NewArrivals zložky " bolo isté , že nie je už boli spracované

Set myfile = fso.GetFile . ( " c : \\ temp \\ test.txt " )

Ak myFile.DateLastModified > tLastProcessedFile Potom

Premenná " tLastProcessedFile " je hodnota uložená buď v registri, log súbor alebo databázu z posledného spracovaného súboru .
5

prečítajte si a spracovať každý súbor , ktorý príde v zložke " NewArrivals " vyhláseniam a konkretizáciu objekt , ktorý je odkazom na skutočné textového súboru .

Set oTextFile = oFSO.OpenTextFile ( strFileName , ForReading )

6

Presuňte súbor , akonáhle ste hotoví spracovania to preddefinovanú záložnej zložky . Typicky , súbory presunuté sú uchovávané po určitú dobu a potom vymazaná .

OFSO.MoveFile strFileName , strNewLocation

• Predchádzajúca strana: Ako používať množinu reťazcov vo VB.NET 
• Ďalšia strana: Čo je zoznam v VB.NET