HARD-CORE GURUS ONLY - Early Vs Late Binding question

[ManningFan]

I need to use late binding in a project because it's company standard
to not include references which aren't MS defaults, so I can't add the
scripting runtime.

I need to be able to search folders (and sub-forders) for a file name,
and then copy the file to a specified directory (at the moment it's
C:\TempCD but that will change later.

All I have so far is the following, I believe my main issue to tackle
is to figure out how to get to sub-folders:

Private Function CheckFile(strPa th As String)
Dim FrmScreen As Form_ScrMainScr eens
Dim X As Integer

DoCmd.Hourglass True
Set FrmScreen = Scr(mvFormId)

Dim db As Database
Dim rec As dao.Recordset
Dim ICN_Name As String
Dim G, Y, z As Variant
Dim cnn As New ADODB.Connectio n
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Con nection

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

Dim filFile As Object, fdrFolder As Object, fdrSubFolder As Object
Dim fsoSysObj As Object, FL As Object, FLS As Object

Set fsoSysObj = CreateObject("S cripting.FileSy stemObject")
Set z = fsoSysObj.Drive s("Y")
Set fdrFolder = z.RootFolder
If fsoSysObj.Folde rExists(strPath ) Then
MsgBox "Im here"
Else
MsgBox "Failed"
End If

Set G = fsoSysObj.GetFo lder(strPath).F iles

For Each FL In G
Debug.Print (FL.Path)
Next FL

'THIS IS WHERE IT DIES

Set Y = G.getSubFolders
For Each FL In Y
Debug.Print (FL.Name)
Next FL

Set fdrFolder = fsoSysObj.GetFo lder(strPath).s ubfolder
Set fdrFolder = CreateObject("S cripting.Folder ")
Set fdrSubFolder = CreateObject("S cripting.Folder ")
Set filFile = CreateObject("S cripting.File")

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

For G = 0 To X - 1
ICN_Name = CmboMulti.List( G)

'************** *************** *************** *********
'************** *************** *************** *********
' This procedure returns all the files in a directory into
' a Dictionary object. If called recursively, it also returns
' all files in subfolders.

' Loop through Files collection

For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyf ile filFile.Path, "C:\TempCD\ "
End If
Next filFile

For Each fdrSubFolder In fdrFolder.SubFo lders
Y = CheckFile2(fdrS ubFolder.Path, ICN_Name)
If Y = True Then
GoTo FDRSRCH
End If
Next fdrSubFolder

'************** *************** *************** *********
FDRSRCH:
Next G

MsgBox "Medical Request Forms have been copied to C:\TempCD\"

For G = 0 To X - 1
DoCmd.SetWarnin gs True
MsgBox "Right-Click on the report body and print to PDF. Remember to
include 'CC' after the ICN # to differentiate between the CC Sheet and
Medical Request Forms."
DoCmd.OpenRepor t "rptAdmin_CcWor ksheet", acViewPreview, , "Icn = '" &
CmboMulti.List( G) & "'", acDialog
Next G

cnn.Close
Set cnn = Nothing

DoCmd.Hourglass False

End Function

Private Function CheckFile2(strP ath As String, ICN_Name As String) As
Variant
Dim FrmScreen As Form_ScrMainScr eens
Dim X As Integer

DoCmd.Hourglass True
Set FrmScreen = Scr(mvFormId)

Dim db As Database
Dim rec As dao.Recordset
Dim G As Variant
Dim cnn As New ADODB.Connectio n
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Con nection

Set fsoSysObj = CreateObject("S cripting.FileSy stemObject")
Set fdrFolder = CreateObject("S cripting.Folder ")
Set fdrSubFolder = CreateObject("S cripting.Folder ")
Set filFile = CreateObject("S cripting.File")

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyf ile filFile.Path, "C:\TempCD\ "
CheckFile2 = "True"
GoTo FDRSRCH
End If
Next filFile

For Each fdrSubFolder In fdrFolder.SubFo lders
Call CheckFile2(fdrS ubFolder.Path, ICN_Name)
Next fdrSubFolder

FDRSRCH:
End Function

[Allen Browne]

There is a function demonstrating how to list files recursively (without
using any external references) here:
http://allenbrowne.com/ser-59.html

It behaves a little differently than the scripting does, as it identifies
zip files as files instead of failing to list them or listing their
contents.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"ManningFan " <ma********@gma il.comwrote in message
news:11******** **************@ h48g2000cwc.goo glegroups.com.. .

>I need to use late binding in a project because it's company standard
to not include references which aren't MS defaults, so I can't add the
scripting runtime.

I need to be able to search folders (and sub-forders) for a file name,
and then copy the file to a specified directory (at the moment it's
C:\TempCD but that will change later.

All I have so far is the following, I believe my main issue to tackle
is to figure out how to get to sub-folders:

Private Function CheckFile(strPa th As String)
Dim FrmScreen As Form_ScrMainScr eens
Dim X As Integer

DoCmd.Hourglass True
Set FrmScreen = Scr(mvFormId)

Dim db As Database
Dim rec As dao.Recordset
Dim ICN_Name As String
Dim G, Y, z As Variant
Dim cnn As New ADODB.Connectio n
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Con nection

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

Dim filFile As Object, fdrFolder As Object, fdrSubFolder As Object
Dim fsoSysObj As Object, FL As Object, FLS As Object

Set fsoSysObj = CreateObject("S cripting.FileSy stemObject")
Set z = fsoSysObj.Drive s("Y")
Set fdrFolder = z.RootFolder
If fsoSysObj.Folde rExists(strPath ) Then
MsgBox "Im here"
Else
MsgBox "Failed"
End If

Set G = fsoSysObj.GetFo lder(strPath).F iles

For Each FL In G
Debug.Print (FL.Path)
Next FL

'THIS IS WHERE IT DIES

Set Y = G.getSubFolders
For Each FL In Y
Debug.Print (FL.Name)
Next FL

Set fdrFolder = fsoSysObj.GetFo lder(strPath).s ubfolder
Set fdrFolder = CreateObject("S cripting.Folder ")
Set fdrSubFolder = CreateObject("S cripting.Folder ")
Set filFile = CreateObject("S cripting.File")

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

For G = 0 To X - 1
ICN_Name = CmboMulti.List( G)

'************** *************** *************** *********
'************** *************** *************** *********
' This procedure returns all the files in a directory into
' a Dictionary object. If called recursively, it also returns
' all files in subfolders.

' Loop through Files collection

For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyf ile filFile.Path, "C:\TempCD\ "
End If
Next filFile

For Each fdrSubFolder In fdrFolder.SubFo lders
Y = CheckFile2(fdrS ubFolder.Path, ICN_Name)
If Y = True Then
GoTo FDRSRCH
End If
Next fdrSubFolder

'************** *************** *************** *********
FDRSRCH:
Next G

MsgBox "Medical Request Forms have been copied to C:\TempCD\"

For G = 0 To X - 1
DoCmd.SetWarnin gs True
MsgBox "Right-Click on the report body and print to PDF. Remember to
include 'CC' after the ICN # to differentiate between the CC Sheet and
Medical Request Forms."
DoCmd.OpenRepor t "rptAdmin_CcWor ksheet", acViewPreview, , "Icn = '" &
CmboMulti.List( G) & "'", acDialog
Next G

cnn.Close
Set cnn = Nothing

DoCmd.Hourglass False

End Function

Private Function CheckFile2(strP ath As String, ICN_Name As String) As
Variant
Dim FrmScreen As Form_ScrMainScr eens
Dim X As Integer

DoCmd.Hourglass True
Set FrmScreen = Scr(mvFormId)

Dim db As Database
Dim rec As dao.Recordset
Dim G As Variant
Dim cnn As New ADODB.Connectio n
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Con nection

Set fsoSysObj = CreateObject("S cripting.FileSy stemObject")
Set fdrFolder = CreateObject("S cripting.Folder ")
Set fdrSubFolder = CreateObject("S cripting.Folder ")
Set filFile = CreateObject("S cripting.File")

If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Clie nt\Out\CMS\Medi calRecords\"
End If

For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyf ile filFile.Path, "C:\TempCD\ "
CheckFile2 = "True"
GoTo FDRSRCH
End If
Next filFile

For Each fdrSubFolder In fdrFolder.SubFo lders
Call CheckFile2(fdrS ubFolder.Path, ICN_Name)
Next fdrSubFolder

FDRSRCH:
End Function

[David W. Fenton]

"Allen Browne" <Al*********@Se eSig.Invalidwro te in
news:44******** *************** @per-qv1-newsreader-01.iinet.net.au :

There is a function demonstrating how to list files recursively
(without using any external references) here:
http://allenbrowne.com/ser-59.html

It behaves a little differently than the scripting does, as it
identifies zip files as files instead of failing to list them or
listing their contents.

That nice reference aside, can the FSO simply not be used with late
binding?

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[Terry Kreft]

Yes, probably it's main place of use is in scripting where you don't have
any other choice.

--

Terry Kreft
"David W. Fenton" <XX*******@dfen ton.com.invalid wrote in message
news:Xn******** *************** ***********@127 .0.0.1...

"Allen Browne" <Al*********@Se eSig.Invalidwro te in
news:44******** *************** @per-qv1-newsreader-01.iinet.net.au :

There is a function demonstrating how to list files recursively
(without using any external references) here:
http://allenbrowne.com/ser-59.html

It behaves a little differently than the scripting does, as it
identifies zip files as files instead of failing to list them or
listing their contents.

That nice reference aside, can the FSO simply not be used with late
binding?

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[RoyVidar]

"David W. Fenton" <XX*******@dfen ton.com.invalid wrote in message
<Xn************ *************** *******@127.0.0 .1>:

"Allen Browne" <Al*********@Se eSig.Invalidwro te in
news:44******** *************** @per-qv1-newsreader-01.iinet.net.au :

>There is a function demonstrating how to list files recursively
(without using any external references) here:
http://allenbrowne.com/ser-59.html

It behaves a little differently than the scripting does, as it
identifies zip files as files instead of failing to list them or
listing their contents.

That nice reference aside, can the FSO simply not be used with late
binding?

One can use late binding with all of the scripting objects. I should
think the below should work, as long as scripting is enabled on your
setup.

Public Function SearchFiles(ByR ef fldr As Object)

Dim fl As Object
Dim f As Object

Debug.Print fldr.Path

For Each f In fldr.Files
Debug.Print , f.Name
Next f

For Each fl In fldr.SubFolders
SearchFiles fl
Next fl

End Function

Sub SearchAllFiles( )
Dim fso As Object
Dim strPath As String

strPath = "c:" ' or narrow it down a bit ;-)
Set fso = CreateObject("s cripting.filesy stemobject")
SearchFiles fso.GetFolder(s trPath)
End Sub

--
Roy-Vidar

[David W. Fenton]

RoyVidar <ro************ *@yahoo.nowrote in
news:mn******** *************** @yahoo.no:

One can use late binding with all of the scripting objects. I
should think the below should work, as long as scripting is
enabled on your setup.

Why was the original poster having the problem, then? Was it an
error that would have occurred with early binding as well?

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[RoyVidar]

"David W. Fenton" <XX*******@dfen ton.com.invalid wrote in message
<Xn************ *************** *******@127.0.0 .1>:

RoyVidar <ro************ *@yahoo.nowrote in
news:mn******** *************** @yahoo.no:

>One can use late binding with all of the scripting objects. I
should think the below should work, as long as scripting is
enabled on your setup.

Why was the original poster having the problem, then? Was it an
error that would have occurred with early binding as well?

That's hard for me to say, but I think I'll guess that the error
might stem from the OP being unfamiliar with these objects.

The hint for the OP, is probably to develop using early binding,
and switch to late binding closer to deployment, if they still
intend to use this library.

Then I think they would have found there's no getSubFolders
property, but there's a SubFolders property of a folder object,
returning a collection of the subfolders of that folder.

--
Roy-Vidar

[jim blunt]

On 20 Jul 2006 10:45:16 -0700, "ManningFan " <ma********@gma il.comwrote:

>I need to use late binding in a project because it's company standard
to not include references which aren't MS defaults, so I can't add the
scripting runtime.

I suppose the company policy relates to avoiding version dependency, but scripting is something many
admins turn off so late binding could produce a nasty surprise further down the line.
I would follow Allen's suggestion.

[David W. Fenton]

jim blunt <do**@ask.comwr ote in
news:l7******** *************** *********@4ax.c om:

On 20 Jul 2006 10:45:16 -0700, "ManningFan " <ma********@gma il.com>
wrote:

>>I need to use late binding in a project because it's company
standard to not include references which aren't MS defaults, so I
can't add the scripting runtime.

I suppose the company policy relates to avoiding version
dependency, but scripting is something many admins turn off so
late binding could produce a nasty surprise further down the line.
I would follow Allen's suggestion.

Is there some fashion in which that error would not be trappable?
That is, if the scripting runtime is not installed, then the effort
to instantiate a scripting object should fail with a trappable error
number. One would need only to find out what it is and then handle
the error. For that matter, as long as you have error handling in
your procedure that instantiates the object, you should be safe.
Might be a good idea to write a sub that does nothing but
instantiate the object, so you would know exactly what the error
applies to.

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[jim blunt]

On Fri, 21 Jul 2006 16:00:13 -0500, "David W. Fenton" <XX*******@dfen ton.com.invalid wrote:

>jim blunt <do**@ask.comwr ote in
news:l7******* *************** **********@4ax. com:

>On 20 Jul 2006 10:45:16 -0700, "ManningFan " <ma********@gma il.com>
wrote:

>>>I need to use late binding in a project because it's company
standard to not include references which aren't MS defaults, so I
can't add the scripting runtime.

I suppose the company policy relates to avoiding version
dependency, but scripting is something many admins turn off so
late binding could produce a nasty surprise further down the line.
I would follow Allen's suggestion.

Is there some fashion in which that error would not be trappable?
That is, if the scripting runtime is not installed, then the effort
to instantiate a scripting object should fail with a trappable error
number. One would need only to find out what it is and then handle
the error. For that matter, as long as you have error handling in
your procedure that instantiates the object, you should be safe.
Might be a good idea to write a sub that does nothing but
instantiate the object, so you would know exactly what the error
applies to.

But even if you trapped the error how would you use the program if you are not allowed to use
scripting?