Esistenza file txt in una directory

Pochi posts

Iscritto da: ott, 2019

Messaggi:: 1

Esistenza file txt in una directory

07 ott 2019, 11:56

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

Weierstrass

Utente Famoso

Iscritto da: feb, 2019

Messaggi:: 2248

Re: Esistenza file txt in una directory

07 ott 2019, 12:06

        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