updating dates of saved files

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is it possible to make a VB code that can find the date modified on a
specific file saved on my network? If so how would I go about doing it? I
basically need a list of all the files in a particular folder and the date
they were last modified. So I can make other queries based on the dates.

Thanks,

Denise
 
Denise said:
Is it possible to make a VB code that can find the date modified on a
specific file saved on my network? If so how would I go about doing it? I
basically need a list of all the files in a particular folder and the date
they were last modified. So I can make other queries based on the dates.

Thanks,

Denise
Click to expand...

The FileDateTime function should get you that information.

Here's some code I use to choose a directory and place it into a textbox:

'---begin Code behind form---
Private Sub cmdGetPath_Click()
'Opens a Treeview control that displays the directories in a computer

Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo

szTitle = "This is the title"
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With

lpIDList = SHBrowseForFolder(tBrowseInfo)

If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
If Right(sBuffer, 1) <> "\" Then sBuffer = sBuffer & "\"
txtSaveFileDirectory.Value = sBuffer
End If
End Sub
'----end Code behind form----

'---begin Module code---
'----Code from http://support.microsoft.com/kb/179497
Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const MAX_PATH = 260

Public Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Public Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long

Public Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, _
ByVal lpBuffer As String) As Long

Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal _
lpString2 As String) As Long
'----end Module code----

Once you have the directory you can use the Dir() function to get the
names of all the files in the directory. After that, you have what you
need to run the FileDateTime function on all the files in the directory.

James A. Fortune
(e-mail address removed)
 
I would love to try this out. unfortunately I can't seem to get to the form
in VB. I have not done anything to hide the codes, and I was able to create
a module easily enough. But I can't seem to get the form to show up when I
open the VB editor. Also does the behind the form code need to be entered
for each file I want to update the date for?

Thanks,
 
Denise said:
I would love to try this out. unfortunately I can't seem to get to the form
in VB. I have not done anything to hide the codes, and I was able to create
a module easily enough. But I can't seem to get the form to show up when I
open the VB editor. Also does the behind the form code need to be entered
for each file I want to update the date for?

Thanks,
Click to expand...

To get to the code behind a form, single click on the form's name and
click 'Design.' Next select View...Code. You only need to put the code
in once, but don't paste the code in yet. Unlike module code, Access
sometimes doesn't attach pasted form code to the buttons correctly. You
need to go back to the form design and create a command button called
'cmdGetPath' and a textbox called 'txtSaveFileDirectory' first. Double
click cmdGetPath, select the 'Event' tab, click in the white rectangle
to the right of the 'On Click' event, then click on the three dots to
the far right. In the box that says 'Choose Builder,' double click
'Code Builder' or select 'Code Builder' and click 'OK.' That is where
to paste the code behind form.

I'll look around to see if I have an example of pulling all the files
from a directory for you to look at. The FileDateTime can be called in
a loop by exploiting the behavior of the Dir() function when called
multiple times.

James A. Fortune
(e-mail address removed)
 
James said:
I'll look around to see if I have an example of pulling all the files
from a directory for you to look at. The FileDateTime can be called in
a loop by exploiting the behavior of the Dir() function when called
multiple times.
Click to expand...

I placed a sample A97 database at:

http://personalwebs.oakland.edu/~fortune/FileTimes.zip

It worked on a directory containing over 12,000 files.

James A. Fortune
(e-mail address removed)
 
I like that, but it doesn't do what I need it to do. I am always going to be
using the same network directory, and having to choose which one defeats the
purpose slightly. Instead of returning a list, I need it to populate fields.
Is there a way to do this so I can have a field for the file name, and a
field for the date and the command button would update them? I need to be
able to run queries against the information so I can find out what files have
or have not been updated. perhaps something that would delete old data and
create all new records with the new data. Or just update the dates for the
files currently listed in the database.
 
Denise said:
I like that, but it doesn't do what I need it to do. I am always going to be
using the same network directory, and having to choose which one defeats the
purpose slightly. Instead of returning a list, I need it to populate fields.
Is there a way to do this so I can have a field for the file name, and a
field for the date and the command button would update them? I need to be
able to run queries against the information so I can find out what files have
or have not been updated. perhaps something that would delete old data and
create all new records with the new data. Or just update the dates for the
files currently listed in the database.
Click to expand...

In the Form_Open event, put the name of the hard-coded directory into
the textbox. Afterwards, in the same event, copy the code after the
directory is selected from cmdGetPath. Then delete cmdGetpath's code
and the command button. You can skip adding the information to the
listbox. The table should refresh each time the form is opened. Post
back if you need help with any of that.

James A. Fortune
(e-mail address removed)
 
I tried to do that but I'm really clueless about VB so I am sure I did not do
it correctly. Can you maybe give step by step instructions or lead me to
some? Do I need to start with the files already listed in the form? Or will
this code be able to pull in the files into one field, and the date into the
other?

Sorry for the delay in responding, I am only working on this project when
there is nothing else pressing and its been a busy couple of weeks.

Thanks,

Denise
 
Denise said:
I tried to do that but I'm really clueless about VB so I am sure I did not do
it correctly. Can you maybe give step by step instructions or lead me to
some? Do I need to start with the files already listed in the form? Or will
this code be able to pull in the files into one field, and the date into the
other?

Sorry for the delay in responding, I am only working on this project when
there is nothing else pressing and its been a busy couple of weeks.

Thanks,

Denise
Click to expand...

I placed a hardcoded version at:

http://personalwebs.oakland.edu/~fortune/FileTimesHardCoded.zip

After converting it, hold down the shift key while opening it and change
the first line of Form_Load,

txtSaveFileDirectory.Value = "T:\Databases\"

to

txtSaveFileDirectory.Value = "YourNetworkDriveLetter:\YourNetworkPath\"

Once the database/form is opened, tblFiles will contain the filenames in
a field called FileName and the file creation/modification dates
(including time) in a field called FileDate.

James A. Fortune
(e-mail address removed)
 
Well I was able to change the path and the path shows up in the form view.
But the data it is pulling is from the My Documents folder, and if I don't
put the \ on the end it pulls up all the files on my Desktop. I don't
actually have a drive letter for the server. I tried to map to it and just
try putting "Y:\" as the path and it still showed files in My Documents.

Is there something else I need to change?
 
Denise said:
Well I was able to change the path and the path shows up in the form view.
But the data it is pulling is from the My Documents folder, and if I don't
put the \ on the end it pulls up all the files on my Desktop. I don't
actually have a drive letter for the server. I tried to map to it and just
try putting "Y:\" as the path and it still showed files in My Documents.

Is there something else I need to change?
Click to expand...

As a matter of fact, there is. In addition to the line
'txtSaveFileDirectory = "T:\Databases\"' add another line after that one
that says:

sBuffer = txtSaveFileDirectory.Value

sBuffer was a string that got filled by the treeview and needs to be set
to the hard-coded value. I'll try to update the file in the link today
also. It should also work with UNC paths. Thanks for catching that.

James A. Fortune
(e-mail address removed)
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Server File Listing 6
Security file MDA 1
Last date of update saved on UpdatedOn when Save Button is click 5
Stored date is not being recognised 1
Make a Date Field Autopopulate 6
Maximum of Two Dates 4
VBA File Information Assistance 14
Question about Table Date Time Stamps 2

Back
Top