loop a folder until a filename is found

[magmo]

Hi


In VbScript I could use the following code....

    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")

    ' Check to see if filename exists
    While FSO.FileExists(myFileName)
      Index = Index + 1
    Wend

Does anyone know a simular way to do this in vb.net?


Regards

 

[SqueakinSweep]

Check out the FileSystemWatcherClass in the System.IO Namespace.


Sweep
...if it works dont mess with it

 

[ca8msm]

Yes - you can set up a Directory Watcher

--------------------------------------------------------------------------------------------------------------------------------------------

Need help finding an answer?

Try the search facility (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[magmo]

Hi

But I dont need to constantly watch a folder, I only need to loop through a folder when an event is triggered.....

Best Regards

 

[jubble]

imports system.io

if file.exists(filename) then
'do something
end if

 

[ThatRickGuy]

try something like this:

    Public Sub FindFile(ByVal path As String, ByVal filename As String)
      Dim fname As String
      Dim dir As System.IO.Directory

      For Each fname In dir.GetFiles(path)
        If fname = filename Then
          'file found
          Exit For
        End If
      Next

    End Sub

-Rick


VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[SqueakinSweep]

Dim dlist As New DirectoryInfo("c:\temp\)
Dim myFileInfo As FileInfo()
myFileInfo = dlist.GetFiles("*.txt")
dim iFileCount as Integer = myFileInfo.Length

Sweep
...if it works dont mess with it

 

[ca8msm]

You could just have a Do Loop:

Do Until System.IO.File.Exists(MyFile)

Loop

--------------------------------------------------------------------------------------------------------------------------------------------

Need help finding an answer?

Try the search facility (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[ThatRickGuy]

or this too if you are only look to see if the file exists:

Public Sub FindFile(ByVal path As String, ByVal filename As String)
      Dim fil As System.IO.File

      If fil.Exists(path & "\" & filename) Then
        'found
      Else
        'not found
      End If

    End Sub

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[magmo]

Hi

Just perfect, Thanks a lot for the help!


Regards

 

[SqueakinSweep]

I think we've given enough pointers...seeing as we all dived in at once.

Sweep
...if it works dont mess with it

 

[ca8msm]

5 alternative methods within 22 minutes of posting the question seems like enough to me as well!

--------------------------------------------------------------------------------------------------------------------------------------------

Need help finding an answer?

Try the search facility (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[jubble]

is tek-tips the place to get your problems answered or is tek-tips the place to get your problems pummelled!

 

[ThatRickGuy]

All your answers, are belong to us.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.