how to delete a file after read it VB.NET?

[sahar]

Hello,
sure it is strange question but i spend today to figure out how to delete the file i just read in vb.net.
this is the code I have:
Imports System.Data.SqlClient
Imports System.IO.File
Imports System.IO
Module Module1
Sub ListDirectory(ByVal dir As DirectoryInfo)
Console.WriteLine("C:\Documents and Settings\Desktop\New Folder\ ")
Dim f As FileInfo
For Each f In dir.GetFiles()
Console.WriteLine(f.FullName)
IO.File.Delete(f.FullName)
Next
IO.File.Delete("f.FullName")
' list directories and files together from FileSystemInfos
Console.WriteLine("*** Files and directories ***")
Dim fi As FileSystemInfo
End Sub


Sub Main()

Try

Dim dir As New DirectoryInfo("C:\Documents and Settings\pnoorass\Desktop\read_test\New Folder\")
fileList = dir.GetFiles("test*.txt")
For index As Integer = 0 To fileList.Length - 1
Limit = fileList.Length

....some parseing
.... transfer to sql server

Next
ListDirectory(dir)

Catch ex As Exception
Throw ex
Finally
If Not readStream Is Nothing Then
readStream.Close()
End If
If Not writeStream Is Nothing Then
readStream.Close()
End If

End Try
End Sub
End Module


'everytime i run this program instead of deleteing the file it gives me message that The process cannot access the file "C:\Documents and Settings\Desktop\New Folder\test1.txt" because it is being used by another process.
Although it dose the parse perfectly just not deleting any file!


Will appreciate your help

[Sync]

You should read the file as ReadOnly...
like..

Dim fs As System.IO.FileStream = New System.IO.FileStream(strFilePath, IO.FileMode.Open, IO.FileAccess.Read)

[sahar]

could you please give me more specific hint. i want to open directory and read all files in directory which i know are .txt files and then delete all of the files. the reading part works by using:
Dim dir As New DirectoryInfo("C:\Documents and Settings\Desktop\R\ Folder\", )
fileList = dir.GetFiles("test*.txt")
and then i read all files.
then i want to use:
IO.File.Delete(f.FullName)
and it is not working.


Thank you,
Sahar

[Sync]

I think the code that you show me is working fine.
I've tested with new project...

Imports System.Data.SqlClient
Imports System.IO.File
Imports System.IO
Module Module1
Sub ListDirectory(ByVal dir As DirectoryInfo)
Console.WriteLine("C:\SS\ ")
Dim f As FileInfo
For Each f In dir.GetFiles()
Console.WriteLine(f.FullName)
IO.File.Delete(f.FullName)
Next
IO.File.Delete("f.FullName")
' list directories and files together from FileSystemInfos
Console.WriteLine("*** Files and directories ***")
Dim fi As FileSystemInfo
End Sub

Sub Main()
Try
Dim dir As New DirectoryInfo("C:\SS\")
Dim fileList() As FileInfo
Dim Limit As Integer
fileList = dir.GetFiles("test*.txt")
For index As Integer = 0 To fileList.Length - 1
Limit = fileList.Length
'''....some parseing
'''.... transfer to sql server
Next
ListDirectory(dir)
Catch ex As Exception
Throw ex
Finally
End Try
End Sub
End Module

If you don't believe that, get new project.. Then, lets start test ur code. )

I'd say you should read the files as ReadOnly...
You should also dispose objects after finish...

If you're still facing these problem, you should show us the whole coding or processes that u have done.....