Esistenza file txt in una directory

di Anonimizzato27023 il
1 risposte
/
Anonimizzato27023
Utente anonimizzato
Ciao, scusate vi chiedo una cosa semplice ma che a me non riesce fare sono alle prime armi. Che codice devo scrivere per sapere se in una directory c'è almeno un file txt? io avevo provato qualcosa del genere ma non mi funziona funziona solo se specifico il nome del file ma io non so in realtà a priori i nomi dei possibili file.
With Me
InfoReader = My.Computer.FileSystem.GetDirectoryInfo(Dts.Variables("DirSelezioni").Value.ToString)
MsgBox("Directory " & InfoReader.FullName)
If My.Computer.FileSystem.FileExists(Dts.Variables("DirSelezioni").Value.ToString & "|*.txt") = True Then
MsgBox("Il File esiste!")
Else
MsgBox("Il File non esiste!")
End If
End With

Grazie infinite
Donatella

1 Risposte

  • Avatar di Weierstrass
    Utente Famoso
    Iscritto da
    feb, 2019
    Messaggi
    2221
            Dim cartella As New System.IO.DirectoryInfo("C:\")
        Dim listaFile() As System.IO.FileInfo = cartella.GetFiles("*.txt", IO.SearchOption.TopDirectoryOnly)
        If listaFile.Length > 0 Then
            MsgBox("Sono stati trovati " & listaFile.Length.ToString & " file txt!")
        Else
            MsgBox("Non sono stati trovati file txt!")
        End If
Devi accedere o registrarti per scrivere nel forum
1 risposte