Rutas de archivos con *
Hola, estoy trabajando en VB.NET y tengo que abrir unn archivo de texo y tratarlo, hasta ahi ningun problema. Por ejemplo este:
"C:esa.txt"
Pero ahora tengo que hacer exactamente lo mismo, pero para varios archivos, con un *. Por ejemplo:
"C:esa*.txt"
Habia pensado de hacer una funcion y llamarla mediante un bucle tantas veces como archivos validos hubiera, pero como se cuantos archivos existen? Como accedo a ellos? Como hago que cada vez coja uno distinto? etc....
Espero haber expresado claramente mi problema y a ver si alguien podria darme alguna solucion o idea para resolverlo.
Muchas gracias.
"C:esa.txt"
Pero ahora tengo que hacer exactamente lo mismo, pero para varios archivos, con un *. Por ejemplo:
"C:esa*.txt"
Habia pensado de hacer una funcion y llamarla mediante un bucle tantas veces como archivos validos hubiera, pero como se cuantos archivos existen? Como accedo a ellos? Como hago que cada vez coja uno distinto? etc....
Espero haber expresado claramente mi problema y a ver si alguien podria darme alguna solucion o idea para resolverlo.
Muchas gracias.
He conseguido solucionar el problema que tenia, asi que pongo la solucion por si alguien mas esta interesado/a en como hacerlo.
Private Sub leerFicheros()
Dim i As Integer
Dim dirName As String = "C:" 'Directorio
Dim dirInfo As New DirectoryInfo(dirName)
Dim fiArr As FileInfo() = dirInfo.GetFiles("esa*.txt") 'Guarda todos los archivos en una matriz
For i = 0 To fiArr.Length - 1
tratadoArchivo(fiArr(i).DirectoryName + fiArr(i).Name) 'Llama a la funcion (directorio + nombre_archivo)
Next
Beep()
MsgBox("Exportacion de datos finalizada", MsgBoxStyle.OKOnly)
End Sub
Private Sub leerFicheros()
Dim i As Integer
Dim dirName As String = "C:" 'Directorio
Dim dirInfo As New DirectoryInfo(dirName)
Dim fiArr As FileInfo() = dirInfo.GetFiles("esa*.txt") 'Guarda todos los archivos en una matriz
For i = 0 To fiArr.Length - 1
tratadoArchivo(fiArr(i).DirectoryName + fiArr(i).Name) 'Llama a la funcion (directorio + nombre_archivo)
Next
Beep()
MsgBox("Exportacion de datos finalizada", MsgBoxStyle.OKOnly)
End Sub
