| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come guardare una cartella su VB6
    I dati provenienti da fonti esterne, come e-mail o altri programmi è spesso consegnati in una cartella specifica identificato sulla rete. Tale cartella dovrebbe essere guardato per i file in arrivo da qualsiasi programma che richiede che le informazioni . Il programma ( s ), che controlla la cartella di solito legge ed elabora i contenuti dei file ricevuti nella cartella designata , e quindi sposta i file in un'altra cartella o li cancella . Il programma a guardare la cartella può ciecamente elaborare ogni file come si arriva o controllare la proprietà " DateLastModified " del file per vedere se è arrivato qualcosa di nuovo . Istruzioni
    1

    Creare un nuovo progetto Visual Basic EXE standard . Selezionare " progetto", "Riferimenti" e fare clic sulla casella accanto a " Microsoft Scripting Runtime" . Fare clic su " OK" per salvare e chiudere .
    2

    Dichiarare e creare un'istanza di un riferimento a un oggetto FileSystemObject .

    Dim oFSO As New Scripting.FileSystemObject

    goccia un nuovo oggetto timer sul default " Form1 " e impostare l'intervallo di un numero che rappresenta il numero di millisecondi di attesa . Ad esempio, impostando l'intervallo a 2000 aspetterà 2 secondi.
    3 Codice

    la logica per quello che dovrebbe accadere quando i due secondi sono all'altezza . Il programma guarda la cartella designata e controlla ogni 2 secondi per vedere se un nuovo file è arrivato. Scrivi il codice all'interno di " Time1_Timer ( ) " per verificare la cartella chiamata " NEWarrivals . " Se il conteggio è maggiore di zero , un file è arrivato.

    OFSO.GetFolder ( " NEWarrivals " ) . Files.Count > 0 Then
    4

    Controllare il " DateLastModified "la proprietà di un file trovato nel" NEWarrivals " cartella per assicurarsi che non è già stato elaborato

    myFile = fso.GetFile . ( " c: \\ temp \\ test.txt " ) per < p > Se myFile.DateLastModified > tLastProcessedFile Poi

    la variabile " tLastProcessedFile " è un valore memorizzato nel Registro di sistema , file di log o di database dall'ultimo file elaborato .
    5

    leggere ed elaborare ogni file che arriva nella cartella " NEWarrivals " di dichiarare e istanziare un oggetto che è un riferimento al file di testo vero e proprio.

    oTextFile = oFSO.OpenTextFile ( strFileName , ForReading ) per
    6

    Spostare il file non appena hai finito di trasformazione in una cartella di backup predefinita . In genere , i file trasferiti vengono conservati per un determinato periodo di tempo e poi eliminati in modo permanente .

    OFSO.MoveFile strFileName , strNewLocation

    Previous :

    next :
      Articoli Correlati
    ·Come convertire una stringa in lettere minuscole in VBA…
    ·Come mettere ListView intestazioni in un blocco note ut…
    ·Come capitalizzare un Nome in VB 2008 
    ·Come scrivere un VBScript Generale 
    ·Come al modulo 2 Visualizzare in Visual Basic 
    ·Come aggiungere una barra di scorrimento a Visual Basic…
    ·Come fare un gioco pong con il codice in VB 
    ·Come compilare le pagine Web in VBA 
    ·Come leggere porte seriali utilizzando Visual Basic 
    ·Come fare un browser Internet in Vb.Net senza il contro…
      Articoli in evidenza
    ·Come fare un programma Ripetizione su una TI 84 Plus 
    ·Le VBA Max Funzioni 
    ·Come ottenere stringhe per convertire interi in VB.NET …
    ·Come importare una Applet Java 
    ·Come imparare MySQL comandi 
    ·Come fare una animazione Java più veloce 
    ·Qual è Computer Programming ? 
    ·Come caricare file JSP 
    ·Come ombreggiatura a righe in Visual Basic 6 
    ·Come imparare VB per l'accesso 
    Copyright © Conoscenza Informatica http://it.wingwit.com