Open or Find file by FileDateTime - Xtreme Visual Basic Talk

11-17-2005, 12:41 PM

rcorrea

Centurion

Join Date: Aug 2003

Posts: 188

Open or Find file by FileDateTime

I have a string that is equal to the date/time a file was modified.

How would I go about finding a file by name, with this string?

__________________
Love thy neighbor, or he'll shoot you.

11-17-2005, 12:51 PM

vbtricks

Junior Contributor

Join Date: Jul 2005

Location: Germany

Posts: 289

Well,

I think there's no function that allows searching files by last-modified-date. So you'll have to do a dir-function for *.* and then check last-modified-date for the correct date. Do you know how to write such a function. FindFirstFile-api could speed things up.

Stefan

__________________
VBTricks.de.vu the free source for all Visual Basic issues in English. Free controls, classes and whole projects available. Deals also with (Free) Pascal and Gambas.

11-17-2005, 02:06 PM

rcorrea

Centurion

Join Date: Aug 2003

Posts: 188

Quote:

Originally Posted by vbtricks

Hi thanks for your response. Darn no function, oh well.

What I'm working on now, is I have an array with all the file names that I will need to search. I'm going to loop through the array checking dates based on that string somehow.

__________________
Love thy neighbor, or he'll shoot you.

11-17-2005, 02:53 PM

Goggy

Contributor

Join Date: Sep 2005

Location: Enschede,The Netherlands

Posts: 601

Quote:

Originally Posted by rcorrea

iam a noob... but one could use the file system object to search for the modifi date?

Code:

Private Sub Form_Load()

    Dim Fso As New FileSystemObject
    Dim Drive As Drive
    Dim File As File
    Dim SubFolder As Folder

    For Each Drive In Fso.Drives
        If Drive.IsReady Then
            For Each File In Drive.RootFolder.Files
                Debug.Print File.DateLastModified
            Next
            For Each SubFolder In Drive.RootFolder.SubFolders
                SubDirectorys SubFolder
            Next
        End If
    Next


End Sub

Private Function SubDirectorys(SubDirectory As Folder)

    Dim File As File
    Dim Folder As Folder
    
    If SubDirectory.SubFolders.Count <> 0 Then
        For Each Folder In SubDirectory.SubFolders
            SubDirectorys Folder
        Next
    Else
        For Each File In SubDirectory.Files
            Debug.Print  File.DateLastModified
        Next
    End If
    
End Function

aldo this might take a while and iam not sure it this the best way of going around this problem

11-17-2005, 05:46 PM

Diurnal

Enthusiast

Retired Leader
* Expert *

Join Date: Apr 2002

Location: Bellevue, WA.

Posts: 3,233

Check out the FileDateTime() function. Look in your MSDN help file. You could loop through your file names and use it to compare to the time and date you need.

11-17-2005, 05:57 PM

rcorrea

Centurion

Join Date: Aug 2003

Posts: 188

Quote:

Originally Posted by Diurnal

Check out the FileDateTime() function. Look in your MSDN help file. You could loop through your file names and use it to compare to the time and date you need.

Yep filedatetime is what I am using. Works fine, and is easy.

Here's what I came up, thought I would share my loop. strlogarray() is a list of the log files I made in another form.

Code:

ff = FreeFile()
        
    strfiles = ListView1.SelectedItem
    For i = 0 To UBound(strLogarray)
        If FileDateTime("\\ppfwav\logs\" & strLogarray(i)) = strfiles Then
            strfiles = Dir$("\\ppfwav\logs\" & strLogarray(i))
                Open "\\ppfwav\logs\" & strfiles For Input As ff
                    Do While Not EOF(ff)
                        Line Input #ff, strTextfile
                        textbox.Rtfbox.SelText = strTextfile & vbCrLf
                    Loop
        End If
    Next i

__________________
Love thy neighbor, or he'll shoot you.