HEEEELP on file code?

This is how i use open file dialogs:

Dim s As String
    
    s = Application.GetOpenFilename("FILE TYPE (*.txt),*.txt", _
        1, "DESCRIPTIONS", , False)

Quote from Turbothorup

I have this code below.......and I want it to return the filename on the last modified file in the folder I have defined. My messagebox in the end just returns "false".......and I had hoped it would return some kind of filename. Could anyone tell me how I can rewrite my code in order to make it show the filename?

Code

Sub hentUbs()


Findes




End Sub


Function Findes() As Boolean
'   Uses FileSerach object
    
    Dim fname As Variant
    
    
    Directory = "U:\FI-Euro\IG Corporates\HF\Tool Construction\UBS"
    
    With Application.FileSearch
        .NewSearch
        .Filename = fname
        .LookIn = Directory
        .LastModified = msoLastModifiedAnyTime
        .Execute
        Findes = fname
        
        
    End With
    MsgBox Findes
End Function

Display More

Thanks, Lars

hi Lars,

the biggest problem I can see there is that you have the variable assignment around the wrong way, where you have:

.Filename = fname

to do what I think you want to do, it should be:

fname = .Filename

the next problem is your function name 'Findes' is declared as a Boolean so the msgbox will only display TRUE or FALSE.

so, if fname actually gets assigned to a filename, you may want to try:

MsgBox fname

or make the necessary adjustments to the function return type.

Paul.

ok maybe forget that first point, i am not totally familiar with .FileSearch but i think you either want to set the fname variable before that statement or assign it to the .FileSearch.Filename property after the statement is executed.

my comment about the msgbox is still valid. : D

Lars, not sure if this will help, had a 2minute fiddle to see what was going on,

Dim blah As FileSearch


directory = "c:\temp"


Set blah = Application.FileSearch


With Application.FileSearch
    .NewSearch
    .LookIn = directory
    .LastModified = msoLastModifiedAnyTime
    .Execute
End With


For i = 1 To blah.FoundFiles.Count
    MsgBox blah.FoundFiles(i)
Next i

sorry it probably doesn't do what you want at this stage but maybe it will help you see a little of what is happening?