system.io

[maft]

Hi,

How di enumerate through files in a given directory?

Thanks
ZR

 

[Gustavo De la Espriella]

The following is a code sample I used:

Dim strArchivo, strHref, strVirtualParam As String

Dim strArrArchivos As String()

strArrArchivos = IO.Directory.GetFiles(strPathActualParam)

For Each strArchivo In strArrArchivos

strHref = strVirtual & "/" & strArchivo.Remove(0,
strPathActualParam.Length + 1)

MyLiteral.Text += "<a href='" & strHref & "'>" & strEspacio &
strArchivo.Remove(0, strPathActualParam.Length + 1) & "<BR>"

Next

 

[Herfried K. Wagner [MVP]]

How di enumerate through files in a given directory?

\\\
Dim s As String
For Each s in Directory.GetFiles(...)
MsgBox(s)
Next s
///

Recursive enumeration:

<http://www.mvps.org/dotnet/dotnet/samples/filesystem/downloads/RecursiveFileScan.zip>

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

 

[maft]

Thanks alot it works.

I am trying to delete multiple files in a particular directory.
The code will like this
\\\
Dim s As String
For Each s in Directory.GetFiles(...)
system.io.file.delete(s)
Next s
///

is there a method that would allow me delete more than one file at a time.

for instance Delete "*.txt"

ZR

 

[maft]

Thanks alot
zr

The following is a code sample I used:

Dim strArchivo, strHref, strVirtualParam As String

Dim strArrArchivos As String()

strArrArchivos = IO.Directory.GetFiles(strPathActualParam)

For Each strArchivo In strArrArchivos

strHref = strVirtual & "/" & strArchivo.Remove(0,
strPathActualParam.Length + 1)

MyLiteral.Text += "<a href='" & strHref & "'>" & strEspacio &
strArchivo.Remove(0, strPathActualParam.Length + 1) & "<BR>"

Next