Excel XP & Win XP
How can I determine if a specific folder, say "C:\The Folder", exists?
I have an OP who will be sending some files, and the code to place the files
in that folder, to some people. Thanks for your time. Otto

Dir()

Tim

"Otto Moehrbach" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Excel XP & Win XP
> How can I determine if a specific folder, say "C:\The Folder", exists?
> I have an OP who will be sending some files, and the code to place the
> files in that folder, to some people. Thanks for your time. Otto
>

This is right out of VBA help file.

Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub

If you don't want the whole list you could modifiy it to say:

For Each fl in fc
If fl.name = "ObjectFileName" Then
MsgBox "File Is There"
Else
MsgBox "Not In This Bunch"
End If
Next

"Otto Moehrbach" wrote:

> Excel XP & Win XP
> How can I determine if a specific folder, say "C:\The Folder", exists?
> I have an OP who will be sending some files, and the code to place the files
> in that folder, to some people. Thanks for your time. Otto
>
>
>

Dim TestStr as string
TestStr = ""
on error resume next
teststr = dir("c:\the folder\nul")
on error goto 0

if teststr = "" then
'doesn't exist
else
'exists
end if

==========
But maybe you don't have to check. Maybe it would be enough to just create the
folder (ignoring any error if the folder is already there):

on error resume next
mkdir "C:\the folder"
on error goto 0



Otto Moehrbach wrote:
>
> Excel XP & Win XP
> How can I determine if a specific folder, say "C:\The Folder", exists?
> I have an OP who will be sending some files, and the code to place the files
> in that folder, to some people. Thanks for your time. Otto

--

Dave Peterson

Function FolderExists(strFolderPath As String) As Boolean
On Error Resume Next
If Len(strFolderPath) > 0 Then
FolderExists = ((GetAttr(strFolderPath) And vbDirectory) > 0)
Err.Clear
End If
End Function


RBS


"Otto Moehrbach" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Excel XP & Win XP
> How can I determine if a specific folder, say "C:\The Folder", exists?
> I have an OP who will be sending some files, and the code to place the
> files in that folder, to some people. Thanks for your time. Otto
>

Dave
Thanks for that but I have to show my ignorance. It seems to me that
your code is checking for the existence of a folder "nul" as a subfolder to
the folder "the folder". If this is so then "teststr" will be "" even if
"the folder" exists, since the folder "nul" doesn't exist. Did I jump the
track somewhere? Thanks again for your time. Otto
"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Dim TestStr as string
> TestStr = ""
> on error resume next
> teststr = dir("c:\the folder\nul")
> on error goto 0
>
> if teststr = "" then
> 'doesn't exist
> else
> 'exists
> end if
>
> ==========
> But maybe you don't have to check. Maybe it would be enough to just
> create the
> folder (ignoring any error if the folder is already there):
>
> on error resume next
> mkdir "C:\the folder"
> on error goto 0
>
>
>
> Otto Moehrbach wrote:
>>
>> Excel XP & Win XP
>> How can I determine if a specific folder, say "C:\The Folder",
>> exists?
>> I have an OP who will be sending some files, and the code to place the
>> files
>> in that folder, to some people. Thanks for your time. Otto
>
> --
>
> Dave Peterson

There are DOS devices that "exist" for every folder:

PRN (Printer)
CON (Console)
NUL (Null)
LPTx (Printer)
AUX (Auxillary)
COMx (Serial)

If the device doesn't exist, then the folder doesn't exist.

Try it and you'll see.

Otto Moehrbach wrote:
>
> Dave
> Thanks for that but I have to show my ignorance. It seems to me that
> your code is checking for the existence of a folder "nul" as a subfolder to
> the folder "the folder". If this is so then "teststr" will be "" even if
> "the folder" exists, since the folder "nul" doesn't exist. Did I jump the
> track somewhere? Thanks again for your time. Otto
> "Dave Peterson" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Dim TestStr as string
> > TestStr = ""
> > on error resume next
> > teststr = dir("c:\the folder\nul")
> > on error goto 0
> >
> > if teststr = "" then
> > 'doesn't exist
> > else
> > 'exists
> > end if
> >
> > ==========
> > But maybe you don't have to check. Maybe it would be enough to just
> > create the
> > folder (ignoring any error if the folder is already there):
> >
> > on error resume next
> > mkdir "C:\the folder"
> > on error goto 0
> >
> >
> >
> > Otto Moehrbach wrote:
> >>
> >> Excel XP & Win XP
> >> How can I determine if a specific folder, say "C:\The Folder",
> >> exists?
> >> I have an OP who will be sending some files, and the code to place the
> >> files
> >> in that folder, to some people. Thanks for your time. Otto
> >
> > --
> >
> > Dave Peterson

--

Dave Peterson

Thanks Dave. Every time I cross paths with you I learn something. Otto
"Dave Peterson" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> There are DOS devices that "exist" for every folder:
>
> PRN (Printer)
> CON (Console)
> NUL (Null)
> LPTx (Printer)
> AUX (Auxillary)
> COMx (Serial)
>
> If the device doesn't exist, then the folder doesn't exist.
>
> Try it and you'll see.
>
> Otto Moehrbach wrote:
>>
>> Dave
>> Thanks for that but I have to show my ignorance. It seems to me that
>> your code is checking for the existence of a folder "nul" as a subfolder
>> to
>> the folder "the folder". If this is so then "teststr" will be "" even if
>> "the folder" exists, since the folder "nul" doesn't exist. Did I jump
>> the
>> track somewhere? Thanks again for your time. Otto
>> "Dave Peterson" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>> > Dim TestStr as string
>> > TestStr = ""
>> > on error resume next
>> > teststr = dir("c:\the folder\nul")
>> > on error goto 0
>> >
>> > if teststr = "" then
>> > 'doesn't exist
>> > else
>> > 'exists
>> > end if
>> >
>> > ==========
>> > But maybe you don't have to check. Maybe it would be enough to just
>> > create the
>> > folder (ignoring any error if the folder is already there):
>> >
>> > on error resume next
>> > mkdir "C:\the folder"
>> > on error goto 0
>> >
>> >
>> >
>> > Otto Moehrbach wrote:
>> >>
>> >> Excel XP & Win XP
>> >> How can I determine if a specific folder, say "C:\The Folder",
>> >> exists?
>> >> I have an OP who will be sending some files, and the code to place the
>> >> files
>> >> in that folder, to some people. Thanks for your time. Otto
>> >
>> > --
>> >
>> > Dave Peterson
>
> --
>
> Dave Peterson

Just another of many...

Function IsFolder(S As String) As Boolean
IsFolder = CreateObject("Scripting.FileSystemObject").FolderExists(S)
End Function

--
HTH
Dana DeLouis


"Otto Moehrbach" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Excel XP & Win XP
> How can I determine if a specific folder, say "C:\The Folder", exists?
> I have an OP who will be sending some files, and the code to place the
> files in that folder, to some people. Thanks for your time. Otto

Thanks Dana, that's short and sweet. Otto
"Dana DeLouis" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Just another of many...
>
> Function IsFolder(S As String) As Boolean
> IsFolder = CreateObject("Scripting.FileSystemObject").FolderExists(S)
> End Function
>
> --
> HTH
> Dana DeLouis
>
>
> "Otto Moehrbach" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Excel XP & Win XP
>> How can I determine if a specific folder, say "C:\The Folder", exists?
>> I have an OP who will be sending some files, and the code to place the
>> files in that folder, to some people. Thanks for your time. Otto
>