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(strPath As String)
Dim FrmScreen As Form_ScrMainScreens
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.Connection
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Connection
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
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("Scripting.FileSystemObject")
Set z = fsoSysObj.Drives("Y")
Set fdrFolder = z.RootFolder
If fsoSysObj.FolderExists(strPath) Then
MsgBox "Im here"
Else
MsgBox "Failed"
End If
Set G = fsoSysObj.GetFolder(strPath).Files
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.GetFolder(strPath).subfolder
Set fdrFolder = CreateObject("Scripting.Folder")
Set fdrSubFolder = CreateObject("Scripting.Folder")
Set filFile = CreateObject("Scripting.File")
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
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.copyfile filFile.Path, "C:\TempCD\"
End If
Next filFile
For Each fdrSubFolder In fdrFolder.SubFolders
Y = CheckFile2(fdrSubFolder.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.SetWarnings 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.OpenReport "rptAdmin_CcWorksheet", acViewPreview, , "Icn = '" &
CmboMulti.List(G) & "'", acDialog
Next G
cnn.Close
Set cnn = Nothing
DoCmd.Hourglass False
End Function
Private Function CheckFile2(strPath As String, ICN_Name As String) As
Variant
Dim FrmScreen As Form_ScrMainScreens
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.Connection
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Connection
Set fsoSysObj = CreateObject("Scripting.FileSystemObject")
Set fdrFolder = CreateObject("Scripting.Folder")
Set fdrSubFolder = CreateObject("Scripting.Folder")
Set filFile = CreateObject("Scripting.File")
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
End If
For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyfile filFile.Path, "C:\TempCD\"
CheckFile2 = "True"
GoTo FDRSRCH
End If
Next filFile
For Each fdrSubFolder In fdrFolder.SubFolders
Call CheckFile2(fdrSubFolder.Path, ICN_Name)
Next fdrSubFolder
FDRSRCH:
End Function 21 3041
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********@gmail.comwrote in message
news:11**********************@h48g2000cwc.googlegr oups.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(strPath As String)
Dim FrmScreen As Form_ScrMainScreens
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.Connection
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Connection
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
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("Scripting.FileSystemObject")
Set z = fsoSysObj.Drives("Y")
Set fdrFolder = z.RootFolder
If fsoSysObj.FolderExists(strPath) Then
MsgBox "Im here"
Else
MsgBox "Failed"
End If
Set G = fsoSysObj.GetFolder(strPath).Files
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.GetFolder(strPath).subfolder
Set fdrFolder = CreateObject("Scripting.Folder")
Set fdrSubFolder = CreateObject("Scripting.Folder")
Set filFile = CreateObject("Scripting.File")
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
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.copyfile filFile.Path, "C:\TempCD\"
End If
Next filFile
For Each fdrSubFolder In fdrFolder.SubFolders
Y = CheckFile2(fdrSubFolder.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.SetWarnings 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.OpenReport "rptAdmin_CcWorksheet", acViewPreview, , "Icn = '" &
CmboMulti.List(G) & "'", acDialog
Next G
cnn.Close
Set cnn = Nothing
DoCmd.Hourglass False
End Function
Private Function CheckFile2(strPath As String, ICN_Name As String) As
Variant
Dim FrmScreen As Form_ScrMainScreens
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.Connection
Dim rst As New ADODB.Recordset
Set cnn = CodeProject.Connection
Set fsoSysObj = CreateObject("Scripting.FileSystemObject")
Set fdrFolder = CreateObject("Scripting.Folder")
Set fdrSubFolder = CreateObject("Scripting.Folder")
Set filFile = CreateObject("Scripting.File")
If Len(strPath) < 3 Then
strPath =
"\\Cca-audit\dfs-dc-01\Imaging\Client\Out\CMS\MedicalRecords\"
End If
For Each filFile In fdrFolder.Files
If filFile.Name = ICN_Name & ".pdf" Then
fsoSysObj.copyfile filFile.Path, "C:\TempCD\"
CheckFile2 = "True"
GoTo FDRSRCH
End If
Next filFile
For Each fdrSubFolder In fdrFolder.SubFolders
Call CheckFile2(fdrSubFolder.Path, ICN_Name)
Next fdrSubFolder
FDRSRCH:
End Function
"Allen Browne" <Al*********@SeeSig.Invalidwrote 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/
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*******@dfenton.com.invalidwrote in message
news:Xn**********************************@127.0.0. 1...
"Allen Browne" <Al*********@SeeSig.Invalidwrote 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/
"David W. Fenton" <XX*******@dfenton.com.invalidwrote in message
<Xn**********************************@127.0.0.1> :
"Allen Browne" <Al*********@SeeSig.Invalidwrote 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(ByRef 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("scripting.filesystemobject")
SearchFiles fso.GetFolder(strPath)
End Sub
--
Roy-Vidar
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/
"David W. Fenton" <XX*******@dfenton.com.invalidwrote 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
On 20 Jul 2006 10:45:16 -0700, "ManningFan" <ma********@gmail.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.
jim blunt <do**@ask.comwrote in
news:l7********************************@4ax.com:
On 20 Jul 2006 10:45:16 -0700, "ManningFan" <ma********@gmail.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/
On Fri, 21 Jul 2006 16:00:13 -0500, "David W. Fenton" <XX*******@dfenton.com.invalidwrote:
>jim blunt <do**@ask.comwrote in news:l7********************************@4ax.com :
>On 20 Jul 2006 10:45:16 -0700, "ManningFan" <ma********@gmail.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?
jim blunt <do**@ask.comwrote in
news:mc********************************@4ax.com:
On Fri, 21 Jul 2006 16:00:13 -0500, "David W. Fenton"
<XX*******@dfenton.com.invalidwrote:
>>jim blunt <do**@ask.comwrote in news:l7********************************@4ax.co m:
>>On 20 Jul 2006 10:45:16 -0700, "ManningFan" <ma********@gmail.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.
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?
Depends on how crucial that feature is to the app. Many Access apps
could function perfectly well without it, even though those features
that depended on it would not be available. It all depends on how
limiting this is to the app in question.
--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/
On Fri, 21 Jul 2006 21:58:19 GMT, jim blunt <do**@ask.comwrote:
Your app would have to "gracefully degrade" if FSO is not available.
I once wrote an app that used Ms MapPoint to show maps. It wasn't a
critical feature of the app. If user chooses the option, CreateObject
would fail, I would trap the error and display a message that mapping
was dependent on MapPoint being installed.
Big advantage of late binding in this case was that otherwise the app
would work fine, whereas with early binding it would fail at startup.
-Tom.
>On Fri, 21 Jul 2006 16:00:13 -0500, "David W. Fenton" <XX*******@dfenton.com.invalidwrote:
>>jim blunt <do**@ask.comwrote in news:l7********************************@4ax.co m:
>>On 20 Jul 2006 10:45:16 -0700, "ManningFan" <ma********@gmail.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?
RoyVidar wrote:
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.
WAIT!!! you mean he's not a HARD-CORE GURU? I guess he's just excluded
himself from his own club! (Wow, that must be lonely!)
On Fri, 21 Jul 2006 18:48:15 -0700, Tom van Stiphout <no*************@cox.netwrote:
> Your app would have to "gracefully degrade" if FSO is not available.
I once wrote an app that used Ms MapPoint to show maps. It wasn't a critical feature of the app. If user chooses the option, CreateObject would fail, I would trap the error and display a message that mapping was dependent on MapPoint being installed. Big advantage of late binding in this case was that otherwise the app would work fine, whereas with early binding it would fail at startup.
-Tom.
Hang on, Allen suggested some code which doesn't require scripting and I recommended the OP to use
it and so avoid the need for any sort of degredation.
Maybe there is a phrase for this too, "avoiding unnecessary trouble" perhaps.
My question "how would you use the program if you are not allowed to use scripting" was being
sarcastic I'm afraid.
jim blunt <do**@ask.comwrote in
news:2e********************************@4ax.com:
Hang on, Allen suggested some code which doesn't require
scripting and I recommended the OP to use it and so avoid the need
for any sort of degredation. Maybe there is a phrase for this too,
"avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing
what the OP asked about. But there are features that FSO provides
that can *not* be replicated in any other way (such as the network
drive availability function). I need to check for LAN availability
in all my replicated apps where laptop users want to synch with the
LAN when they are connected to it. The FSO would provide a
completely reliable way to do that. I could make the FSO method the
default and if it fails use the less reliable method (with Dir(),
which can return false positives), or I could just try synchronizing
and trap the failure which would be inevitable when not connected to
the LAN. However, there is only one error that Jet will return in
that situation, and it could mean either that the replica is not
there on the LAN or that the LAN is not there, so I'd prefer to test
for the real case.
It was my kind of situation that I was thinking of when I made the
point about late binding with FSO.
--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/
David W. Fenton wrote:
jim blunt <do**@ask.comwrote in
news:2e********************************@4ax.com:
Hang on, Allen suggested some code which doesn't require
scripting and I recommended the OP to use it and so avoid the need
for any sort of degredation. Maybe there is a phrase for this too,
"avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing
what the OP asked about. But there are features that FSO provides
that can *not* be replicated in any other way (such as the network
drive availability function).
Allen Browne has or had a function called at_CheckNet% at his website
for checking the availability of network drives and printers.
James A. Fortune CD********@FortuneJames.com CD********@FortuneJames.com wrote in
news:11**********************@b28g2000cwb.googlegr oups.com:
David W. Fenton wrote:
>jim blunt <do**@ask.comwrote in news:2e********************************@4ax.com :
Hang on, Allen suggested some code which doesn't require
scripting and I recommended the OP to use it and so avoid the
need for any sort of degredation. Maybe there is a phrase for
this too, "avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing what the OP asked about. But there are features that FSO provides that can *not* be replicated in any other way (such as the network drive availability function).
Allen Browne has or had a function called at_CheckNet% at his
website for checking the availability of network drives and
printers.
That sounds great, but I can't find any such function. I do see http://allenbrowne.com/func-11.html, but that's not necessarily what
you're referring to (though it may work in all cases -- I don't know
whether the Access commands used there will always return
appropriate results).
--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/
On Sun, 23 Jul 2006 14:13:07 -0500, "David W. Fenton" <XX*******@dfenton.com.invalidwrote:
>CD********@FortuneJames.com wrote in news:11**********************@b28g2000cwb.googleg roups.com:
>David W. Fenton wrote:
>>jim blunt <do**@ask.comwrote in news:2e********************************@4ax.co m:
Hang on, Allen suggested some code which doesn't require scripting and I recommended the OP to use it and so avoid the need for any sort of degredation. Maybe there is a phrase for this too, "avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing what the OP asked about. But there are features that FSO provides that can *not* be replicated in any other way (such as the network drive availability function).
Allen Browne has or had a function called at_CheckNet% at his website for checking the availability of network drives and printers.
That sounds great, but I can't find any such function. I do see http://allenbrowne.com/func-11.html, but that's not necessarily what you're referring to (though it may work in all cases -- I don't know whether the Access commands used there will always return appropriate results).
Google finds http://www.groupacg.com/ACodeTip.htm#CHKNET
On Sun, 23 Jul 2006 20:10:04 GMT, polite person <he**@home.comwrote:
>On Sun, 23 Jul 2006 14:13:07 -0500, "David W. Fenton" <XX*******@dfenton.com.invalidwrote:
>>CD********@FortuneJames.com wrote in news:11**********************@b28g2000cwb.google groups.com:
>>David W. Fenton wrote: jim blunt <do**@ask.comwrote in news:2e********************************@4ax.com :
Hang on, Allen suggested some code which doesn't require scripting and I recommended the OP to use it and so avoid the need for any sort of degredation. Maybe there is a phrase for this too, "avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing what the OP asked about. But there are features that FSO provides that can *not* be replicated in any other way (such as the network drive availability function).
Allen Browne has or had a function called at_CheckNet% at his website for checking the availability of network drives and printers.
That sounds great, but I can't find any such function. I do see http://allenbrowne.com/func-11.html, but that's not necessarily what you're referring to (though it may work in all cases -- I don't know whether the Access commands used there will always return appropriate results).
Google finds http://www.groupacg.com/ACodeTip.htm#CHKNET
but I was going to add before I pressed the button, VBNet has a set of routines under
network/connection which may be newer.
polite person <he**@home.comwrote in
news:t6********************************@4ax.com:
but I was going to add before I pressed the button, VBNet has a
set of routines under network/connection which may be newer.
What is VBNet? I assume you don't mean the Florida ISP at vbnet.com.
--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/
polite person <he**@home.comwrote in
news:3r********************************@4ax.com:
On Sun, 23 Jul 2006 14:13:07 -0500, "David W. Fenton"
<XX*******@dfenton.com.invalidwrote:
>>CD********@FortuneJames.com wrote in news:11**********************@b28g2000cwb.google groups.com:
>>David W. Fenton wrote: jim blunt <do**@ask.comwrote in news:2e********************************@4ax.com :
Hang on, Allen suggested some code which doesn't require scripting and I recommended the OP to use it and so avoid the need for any sort of degredation. Maybe there is a phrase for this too, "avoiding unnecessary trouble" perhaps.
It is true that Allen provided an alternative way of accomplishing what the OP asked about. But there are features that FSO provides that can *not* be replicated in any other way (such as the network drive availability function).
Allen Browne has or had a function called at_CheckNet% at his website for checking the availability of network drives and printers.
That sounds great, but I can't find any such function. I do see http://allenbrowne.com/func-11.html, but that's not necessarily what you're referring to (though it may work in all cases -- I don't know whether the Access commands used there will always return appropriate results).
Google finds http://www.groupacg.com/ACodeTip.htm#CHKNET
Ah, so it was neither Allen Browne's nor called CheckNet, so that
explains why I as unable to find it.
Thanks for the pointer.
--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/
On Sun, 23 Jul 2006 21:20:04 -0500, "David W. Fenton" <XX*******@dfenton.com.invalidwrote:
>polite person <he**@home.comwrote in news:t6********************************@4ax.com :
>but I was going to add before I pressed the button, VBNet has a set of routines under network/connection which may be newer.
What is VBNet? I assume you don't mean the Florida ISP at vbnet.com.
http://vbnet.mvps.org/
a classic VB (not VB.net) code site This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: 3A Web Hosting |
last post by:
Hi Folks
This is probably starring me in the face but how do I read the contents
of a hard drive directory? I've been playing around with the
opendir($dir) sample from php.net and can read from...
|
by: Nate |
last post by:
Hello,
I am trying to recover a SQL Server 7 database from another hard disk
drive that has a corrupted Windows 2000 Advanced Server installation. I
am not able to repair the corrupted Windows...
|
by: Daniel |
last post by:
when writing out a file from .net, when is the file created? after the bytes
are all written to the hard drive or before the bytes are written to the
hard drive?
|
by: Ron Johnson |
last post by:
http://hardware.devchannel.org/hardwarechannel/03/10/20/1953249.shtml?tid=20&tid=38&tid=49
--
-----------------------------------------------------------------
Ron Johnson, Jr....
|
by: Xah Lee |
last post by:
The Harm of hard-wrapping Lines
20050222
Computing Folks of the industry:
please spread the debunking of the truncating line business of the
fucking unix-loving fuckheads, as outlines here:...
|
by: ward |
last post by:
Good morning.
I created an edit_task page that allows the user to edit tasks for the
database. I entered some text and used some hard returns.
Put when I went to view the tasks (using a PHP...
|
by: Otie |
last post by:
Hi,
Is there a way for VB5 to determine exactly where on a hard drive a .exe
file is stored upon the .exe file's first copying to the hard drive? What I
need to know is the exact hard drive...
|
by: =?Utf-8?B?R2VvcmR5?= |
last post by:
Hello everyone, I would really appreciate if someone helped me in this matter
cause I am going to lose my mind...
I am using a Sony Vaio Laptop with Windows XP professional (512MB Ram, 1,7
GHz CPU...
|
by: Kurt Mueller |
last post by:
David,
Am 07.10.2008 um 01:25 schrieb Blubaugh, David A.:
As others mentioned before, python is not the right tool for "HARD
REAL TIME".
But: Maybe you can isolate the part of your...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome former...
|
by: ryjfgjl |
last post by:
In our work, we often need to import Excel data into databases (such as MySQL, SQL Server, Oracle) for data analysis and processing. Usually, we use database tools like Navicat or the Excel import...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
| |