Variable Types

  • Thread starter Thread starter Robin Clay
  • Start date Start date
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
 
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).
 
-----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) _
'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 said:
-----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) _
'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
-----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
 

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

Back
Top