Uso di GetFileSystemInfos(string)

lunedì 04 luglio 2005 - 11.41

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Arlene Profilo | Junior Member

75 messaggi | Data Invio: lun 4 lug 2005 - 11:41

vorrei sapere se è possibile con il GetFileSystemInfos prelevare più tipi di file.
ad esempio io utilizzo :

For Each fInfo In (New DirectoryInfo(sPathC2W)).GetFileSystemInfos("*.xml")

Ma mi serve estrarre anche i .Zip come posso fare ?

Arlene

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: lun 4 lug 2005 - 13:48

Prova qualche cosa del genere

Private Sub FileSearch(ByVal currentDirectory As String)
Try
Dim fileName As String = ""
Dim regularExpression As Regex = New Regex("[a-zA-Z0-9]+\.(?<extension>\w+)")
Dim matchResult As Match
Dim fileExtension As String
Dim directoryList As String() = Directory.GetDirectories(currentDirectory)
Dim fileArray As String() = Directory.GetFiles(currentDirectory)
For Each myFile As String In fileArray
fileName = myFile.Substring(myFile.LastIndexOf("\") + 1).ToLower
matchResult = regularExpression.Match(fileName)
If matchResult.Success Then
fileExtension = matchResult.Result("${extension}")
Else
fileExtension = ""
End If
' qui fai il test dell'estensione
Next
'eventuale chiamata ricorsiva
For Each myDirectory As String In directoryList
FileSearch(myDirectory)
Next
Catch generatedExceptionVariable0 As UnauthorizedAccessException
MessageBox.Show("Non si ha il permesso di lettura su alcuni files", "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch
MessageBox.Show("Errore nella lettura", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
Finally
Me.Cursor = Cursors.Default
End Try
End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !