opening file in directory

[lilgirl]

I know the name of the file I want to open and I know the root directory it is located in. It is simple to open the file if i know which subdirectory it is in, but my question is: how do I search the root directory and any subdirectories for the file and then open it?

[Madz]

You need to implement a FOR Loop that checks all direcotries

 

 

and use this method

 

FILE.Exists(FileName)

 

this has a boolean value if files exists then stop search other wise go to next directory

[Hughng]

Try this. I have not debug it yet. Basically, it just index through all your subdirectories until find the file that ended with your extention. You might have to fix up some syntax error as I don't have a compiler to check the code at this time :-).

 

===================================

Private Function FindFile(ByVal tDir As String, ByVal tFile as String) as String

Try

Dim strResult as string

Dim fInfo As FileInfo

Dim dInfo As New DirectoryInfo(tDir)

Dim subDir() As DirectoryInfo

Dim tCount As Integer

 

For Each fInfo In dInfo.GetFiles

if fInfo.FullName.EndWith(tFile)

Return dInfo.FullName

Next

 

subDir = dInfo.GetDirectories()

 

For tCount = 0 To subDir.Length - 1

strResult = FindFile(subDir(tCount).FullName)

If strResult <> Nothing

return strResult

Next

 

Catch Exp As Exception

MsgBox("Exception: " & Exp.Message)

End Try

 

return strResult

 

 

End Sub

========================================

Edited July 30, 2003 by Hughng