Variable Types

R

Robin Clay

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
 
T

Tom Ogilvy

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).
 
R

Robin Clay

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

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
Click to expand...
'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
 
Top