Help with Application.FileSearch

[gr0leau]

The following works in excel macro when run in excel 2003, But not in 2007 or 2010. Can anyone help me rewrite this so it will work with 2010?

Any help would be great...

Set fs = Application.FileSearch

With fs

.LookIn = logfolder 'logfolder is a inputbox for the user to specify the 'directory where the files sit
.Filename = "*.txt"
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

For mainloop = 1 To .FoundFiles.Count

currentfile = .FoundFiles.Item(mainloop)

ParseLog (currentfile)

Next mainloop

Else
MsgBox "There were no files found - check the directory?"

End If

End With

 

[hiker95]

gr0leau,

Welcome to the MrExcel forum.


Application.filesearch was dropped in beginning with xl2007.


See:

Peter_SSs
http://www.mrexcel.com/forum/showthread.php?t=406752&highlight=fList()

http://www.thecodecage.com/forumz/excel-miscellaneous/127849-worksheet-content-directory.html

John Walkenbach has some code here:
http://www.ozgrid.com/forum/showthread.php?t=71409&p=369573#post369573

http://excel-it.com/Excel 2007/2007_filesearch.htm

Weaver
http://www.mrexcel.com/forum/showthread.php?t=462360

 

[AlphaFrog]

    Dim currentfile As String

    currentfile = Dir(logfolder [COLOR="Red"]& "\"[/COLOR] & "*.txt")
    
    If currentfile <> vbNullString Then
        Do
            ParseLog (currentfile)
            currentfile = Dir
        Loop Until currentfile = vbNullString
    Else
        MsgBox "There were no files found - check the directory?"
    End If

I don't know if your file path logfolder already includes a trailing forward slash (Red) or not.

 

[AlphaFrog]

Change from previous code.

ParseLog is probably expecting the logforder path included with the file name.

    Dim currentfile As String
    
    [COLOR="Red"]logfolder = logfolder & "\"[/COLOR]
    currentfile = Dir(logfolder & "*.txt")
    
    If currentfile <> vbNullString Then
        Do
            ParseLog ([COLOR="Blue"]logfolder & [/COLOR]currentfile)
            currentfile = Dir
        Loop Until currentfile = vbNullString
    Else
        MsgBox "There were no files found - check the directory?"
    End If

I don't know if your file path logfolder already includes a trailing forward slash (Red) or not.

 

[gr0leau]

Now i am getting an error when it goes to run "ParseLog (currentfile)" it gives error code 53 files not found... i feel like this is on the right track though and i appreciate the help!!!

    Dim currentfile As String

    currentfile = Dir(logfolder [COLOR=Red]& "\"[/COLOR] & "*.txt")
    
    If currentfile <> vbNullString Then
        Do
            ParseLog (currentfile)
            currentfile = Dir
        Loop Until currentfile = vbNullString
    Else
        MsgBox "There were no files found - check the directory?"
    End If

I don't know if your file path logfolder already includes a trailing forward slash (Red) or not.

 

[gr0leau]

Sorry didn't read the most recent post... It now works perfectly. Thanks for the help!!!!!!!!