working with sytem.io

[ZR]

Hi,
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"

[Armin Zingler]

"ZR" <zv******@hotmail.donotspam> schrieb

[nothing new]

It is sufficient to post the question once.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[ZR]

I thought you might have an answer to the question.
"Armin Zingler" <az*******@freenet.de> wrote in message
news:uB**************@TK2MSFTNGP11.phx.gbl...

"ZR" <zv******@hotmail.donotspam> schrieb

[nothing new]

It is sufficient to post the question once.
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Herfried K. Wagner [MVP]]

* "ZR" <zv******@hotmail.donotspam> scripsit:

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?

AFAIK there is no easier way to do what you want. You can use
'Directory.Delete' to delete a whole directory.

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

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

[ZR]

thanks alot for your help
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:bo*************@ID-208219.news.uni-berlin.de...

* "ZR" <zv******@hotmail.donotspam> scripsit:

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?
AFAIK there is no easier way to do what you want. You can use
'Directory.Delete' to delete a whole directory.

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

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

[Shawn D Shelton]

I have some code I will give you that does recursive directory and file
searches. You can pass the function a wildcard.

'*******************************
'*
'* Shawn Shelton
'* This will search directories for files and directories.
'* May be recursive if told to.
'* Use wildcards for searching such as * or .exe
'*
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Imports System.Collections
Module Searcher
Public Sub SearchDirectoryForFiles(ByVal dirlist As Stack, ByVal
searchPath As String, ByVal RecurseDirs As Boolean)
' Split searchPath into a directory and a wildcard specification.
'
Dim directoryPath As String = Path.GetDirectoryName(searchPath)
Dim search As String = Path.GetFileName(searchPath)
Dim dir As New DirectoryInfo(directoryPath)
If directoryPath Is Nothing Or search Is Nothing Then
Return
End If
Dim f As FileInfo
Try
For Each f In dir.GetFiles(search)
dirlist.Push(f.FullName)
Next
Catch e As UnauthorizedAccessException
Return
Catch e As DirectoryNotFoundException
Return
End Try

' Now that you have finished the files in this directory, recurse for
' each subdirectory.
If RecurseDirs = True Then
Dim directories As String() = Directory.GetDirectories(directoryPath)
Dim d As String
For Each d In directories
SearchDirectoryForFiles(dirlist, Path.Combine(d, search), True)
Next d
End If
End Sub

Public Sub SearchDirectoryForDirectories(ByVal dirList As Stack, ByVal
searchPath As String)
Dim directoryPath As String = Path.GetDirectoryName(searchPath)
Dim directories As String() = Directory.GetDirectories(directoryPath)
Dim d As String
For Each d In directories
dirList.Push(d)
SearchDirectoryForDirectories(dirList, d & "\")
Next d
End Sub

End Module
****************************

Call it like this:

dim dirlist as stack
dim x as string
SearchDirectoryForFiles(DirList, "c:\winnt\*.txt", False)
If DirList.Count > 0 Then
For Each x In DirList
SetAttr(x, FileAttribute.Normal)
File.Delete(x)
Next
End If
ZR wrote:

Hi,
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]

Thanks alot for your help
"Shawn D Shelton" <sh******@isu.edu> wrote in message
news:uB***************@TK2MSFTNGP10.phx.gbl...

I have some code I will give you that does recursive directory and file
searches. You can pass the function a wildcard.

'*******************************
'*
'* Shawn Shelton
'* This will search directories for files and directories.
'* May be recursive if told to.
'* Use wildcards for searching such as * or .exe
'*
Option Explicit On
Option Strict On
Imports System
Imports System.IO
Imports System.Collections
Module Searcher
Public Sub SearchDirectoryForFiles(ByVal dirlist As Stack, ByVal
searchPath As String, ByVal RecurseDirs As Boolean)
' Split searchPath into a directory and a wildcard specification.
'
Dim directoryPath As String = Path.GetDirectoryName(searchPath)
Dim search As String = Path.GetFileName(searchPath)
Dim dir As New DirectoryInfo(directoryPath)
If directoryPath Is Nothing Or search Is Nothing Then
Return
End If
Dim f As FileInfo
Try
For Each f In dir.GetFiles(search)
dirlist.Push(f.FullName)
Next
Catch e As UnauthorizedAccessException
Return
Catch e As DirectoryNotFoundException
Return
End Try

' Now that you have finished the files in this directory, recurse for
' each subdirectory.
If RecurseDirs = True Then
Dim directories As String() = Directory.GetDirectories(directoryPath)
Dim d As String
For Each d In directories
SearchDirectoryForFiles(dirlist, Path.Combine(d, search), True)
Next d
End If
End Sub

Public Sub SearchDirectoryForDirectories(ByVal dirList As Stack, ByVal
searchPath As String)
Dim directoryPath As String = Path.GetDirectoryName(searchPath)
Dim directories As String() = Directory.GetDirectories(directoryPath)
Dim d As String
For Each d In directories
dirList.Push(d)
SearchDirectoryForDirectories(dirList, d & "\")
Next d
End Sub

End Module
****************************

Call it like this:

dim dirlist as stack
dim x as string
SearchDirectoryForFiles(DirList, "c:\winnt\*.txt", False)
If DirList.Count > 0 Then
For Each x In DirList
SetAttr(x, FileAttribute.Normal)
File.Delete(x)
Next
End If
ZR wrote:

Hi,
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"