Greetings !

I get "User-defined functions undefined" errors
with these first two lines.... :(

Dim objFSo As New FileSystemObject
Dim objFolder As Folder

Set objFolder = objFSo.GetFolder(myPath)

Help !

RClay AT haswell DOT com

Have you created a reference to the Microsoft Scripting Runtime in
Tools=References in the VBE.

If not, you need to to use the New syntax.

If you don't want to, then dim your variables as Object and use CreateObject
in lieu of using the New syntax and declaring your variables as specific
objects (defined in the scripting runtime library).

--
Regards,
Tom Ogilvy

"Robin Clay" wrote in message
...
Greetings !

I get "User-defined functions undefined" errors
with these first two lines.... :(

Dim objFSo As New FileSystemObject
Dim objFolder As Folder

Set objFolder = objFSo.GetFolder(myPath)

Help !

RClay AT haswell DOT com

-----Original Message-----
Have you created a reference to the
Microsoft Scripting Runtime in
Tools=References in the VBE.

No... [small voice] ...I didn't know it existed...


So THAT's now fixed.... Thank you very much !

But now :(

WeCopy = False
Set TargetList = Application.FileSearch
With TargetList
.LookIn = TargetRoot & Stub
.FileName = SourceName
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) _
0 Then
'MsgBox "There were " & _
.FoundFiles.Count & " file(s) found."

'For I = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(I)
'Next I
ERROR ! Text = .FoundFiles(1).Datelastmodified
If SourceDate _
.FoundFiles(1).Datelastmodified _
Then WeCopy = True

Else
'MsgBox "There were no files found."
WeCopy = True
End If
End With

If WeCopy Then
'Copy Source file to Target
Text = SourceRoot & Stub & SourceName
Text = TargetRoot & Stub & SourceName
On Error Resume Next
MkDir TargetRoot & Stub
Application.CopyFile SourceRoot & Stub & _
SourceName, TargetRoot & Stub & SourceName
On Error GoTo 0
End If



RClay AT haswell DOT com

foundfiles does not have a DateLastModified Property and
Application.FileSearch has no relationship to the Scripting Runtime or the
FileSystemObject.

Anyway, this is the example from the VBA filedatatime function:

Dim MyStamp
' Assume TESTFILE was last modified on February 12, 1993 at 4:35:47 PM.
' Assume English/U.S. locale settings.
MyStamp = FileDateTime("TESTFILE") ' Returns "2/12/93 4:35:47 PM".
soText = FileDateTime(.foundfiles(i)) or replace i with 1 - whatever your
intent is. orDim dText as DateDim SourceDate as DateSourceDate = Now dText
= FileDateTime(.Foundfiles(i)) if dText < SourceDate Then-- Regards,Tom
Ogilvy"Robin Clay" wrote in message
...

-----Original Message-----
Have you created a reference to the
Microsoft Scripting Runtime in
Tools=References in the VBE.

No... [small voice] ...I didn't know it existed...


So THAT's now fixed.... Thank you very much !

But now :(

WeCopy = False
Set TargetList = Application.FileSearch
With TargetList
.LookIn = TargetRoot & Stub
.FileName = SourceName
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) _
0 Then
'MsgBox "There were " & _
.FoundFiles.Count & " file(s) found."

'For I = 1 To .FoundFiles.Count
' MsgBox .FoundFiles(I)
'Next I
ERROR ! Text = .FoundFiles(1).Datelastmodified
If SourceDate _
.FoundFiles(1).Datelastmodified _
Then WeCopy = True

Else
'MsgBox "There were no files found."
WeCopy = True
End If
End With

If WeCopy Then
'Copy Source file to Target
Text = SourceRoot & Stub & SourceName
Text = TargetRoot & Stub & SourceName
On Error Resume Next
MkDir TargetRoot & Stub
Application.CopyFile SourceRoot & Stub & _
SourceName, TargetRoot & Stub & SourceName
On Error GoTo 0
End If



RClay AT haswell DOT com

Thank you, Tom, very much for your help and the sample you
gave (and your patience !)

I don't really understand it at first reading, but I'll
work on it.... <grin


-----Original Message-----
foundfiles does not have a DateLastModified Property and
Application.FileSearch has no relationship to the
Scripting Runtime or the
FileSystemObject.

Anyway, this is the example from the VBA filedatatime
function:




RClay AT haswell DOT com