[VB6] Cerca File in una cartella

[19davifumi89]

Ragazzi ho sviluppato un'applicazione che installa dei programmi scelti da una lista...

poichè l'utente ne può scegliere più di uno e ha bisogno di sapere se il il setup è andato o no a buon fine devo interrogare in C:\APPS\LOGS se è presente il file .log del setup e se è andato a buon fine così da poter procedere alla seconda installazione etc etc

Poichè non so i nomi dei file .log vorrei sapere se è presente tra i file un file che contiene il nome del pacchetto.

Una cosa del genere:


Per ogni file nella cartella c:\apps\logs controlla se nel nome del file è presente la stringa "nomepacchetto" . In caso di risposta positiva apri il nome del file (for input) e cerca se al suo interno è presente la parola "Successful ecc".


Qualcosa del genere (codice puramente inventato):

open dir=c:\apps\logs

totf=nfile_presenti_nella_cartella

for i=1 to totf

   If Instr(nome_file(i),nomepacchetto)>0 then

       Open nome_file(i) for input as i
       
        contenuto_file= Input(LOF(i), i)
        
       Close #i

        if instr(contenuto_file,"Successful")>0 then

          msgbox "installazione andata a buon fine"

        end if
    end if
next

e poi quindi procedere con la seconda installazione.


Grazie a tutti in anticipo!

[oregon]

Utilizza la funzione Dir()

[19davifumi89]

Oregon grazie per la risposta tempestiva!

per ora risolto

Dim MyFile As String
Dim cfile, path As String


path = "C:\APPS\LOGS\"
MyFile = Dir(path & "*.LOG")

Do While MyFile <> ""

If InStr(MyFile, nomepacchetto) > 0 Then

    MsgBox "trovato"
    
    Open path & MyFile For Input As 1
    
    cfile = Input(LOF(1), 1)
    
    Close 1

    If InStr(cfile, "Successful") > 0 Then
    
        MsgBox "yeah!"
    
    End If

End If

MyFile = Dir()

Loop