software

Hello to you all,

I have got some VBA code that allows a user (mainly me) to select a folder
on which I will do some renaming en converting of data. (also in VBA-excel)

Folder structure can be eg:
C:\Afolder\Bfolder\Cfolder\Dfolder\Efolder

If you select DFolder ... my code will do its thing on all Efolders.
Efolder is always the same structure (contains alos subfolder) but amount of
Efolders can vary.

If user selects Bfolder or Cfolder my code doesn't work because I only look
one subfolder deep.

I have used the following code to look into subfolder:

Dim fl
Set fs = CreateObject(quot;Scripting.FileSystemObjectquot;)
Set f = fs.GetFolder(FolderName) ' FolderName is retrieved by some
other code
Set fc = f.SubFolders
For Each f1 In fc
'Do my thing
Next

Is there a variable in VBA or this object which tells you how deep the
folders list is?
In other words ... how many subfolder levels there are?

Or is this done by going down the path of subfolders and just count it your
self?
EVEN better or ALSO LOOKING FOR:

Is there an object/dialog within VBA that show you the folder tree structure
and allows you to select / deselect folders on which you can run your code.

(if possible ... for Excel2000 or show me the way for ExcelXP and I will try
to translate it)
Many Thanks in AdvanceKimball
www.j-walk.com/ss/excel/tips/tip29.htm

--
Regards,
Tom Ogilvyquot;Subteamquot; gt; wrote in message t...
gt; Hello to you all,
gt;
gt; I have got some VBA code that allows a user (mainly me) to select a
folder
gt; on which I will do some renaming en converting of data. (also in
VBA-excel)
gt;
gt; Folder structure can be eg:
gt; C:\Afolder\Bfolder\Cfolder\Dfolder\Efolder
gt;
gt; If you select DFolder ... my code will do its thing on all Efolders.
gt; Efolder is always the same structure (contains alos subfolder) but amount
of
gt; Efolders can vary.
gt;
gt; If user selects Bfolder or Cfolder my code doesn't work because I only
look
gt; one subfolder deep.
gt;
gt; I have used the following code to look into subfolder:
gt;
gt; Dim fl
gt; Set fs = CreateObject(quot;Scripting.FileSystemObjectquot;)
gt; Set f = fs.GetFolder(FolderName) ' FolderName is retrieved by some
gt; other code
gt; Set fc = f.SubFolders
gt; For Each f1 In fc
gt; 'Do my thing
gt; Next
gt;
gt; Is there a variable in VBA or this object which tells you how deep the
gt; folders list is?
gt; In other words ... how many subfolder levels there are?
gt;
gt; Or is this done by going down the path of subfolders and just count it
your
gt; self?
gt;
gt;
gt;
gt; EVEN better or ALSO LOOKING FOR:
gt;
gt; Is there an object/dialog within VBA that show you the folder tree
structure
gt; and allows you to select / deselect folders on which you can run your
code.
gt;
gt; (if possible ... for Excel2000 or show me the way for ExcelXP and I will
try
gt; to translate it)
gt;
gt;
gt;
gt; Many Thanks in Advance
gt;
gt;
gt; Kimball
gt;
gt;
Hello Tom,

Thanks for the fast reply ... unfortunately it does not answer my
question(s).

I actually already use code like that to select the folder.

The problem is in the fact that the user (or myself) can select the Dfolder
(see earlier mail) and my code will do its thing. But If I decide to do a
batchjob (more Dfolders at once) I must have a way to detect the folder
depth.

eg.

now I have:
c:\Afolder\Bfolder\Cfolder\Dfolder_1\Efolder_1
....
c:\Afolder\Bfolder\Cfolder\Dfolder_1\Efolder_5After selecting Dfolder_1 my code knows what to do with all found Efolders.

What I'm looking for is

c:\Afolder\Bfolder\Cfolder\Dfolder_1\Efolder_1
....
c:\Afolder\Bfolder\Cfolder\Dfolder_1\Efolder_5

c:\Afolder\Bfolder\Cfolder\Dfolder_2\Efolder_1
....
c:\Afolder\Bfolder\Cfolder\Dfolder_2\Efolder_7

c:\Afolder\Bfolder\Cfolder\Dfolder_3\Efolder_notto beused1
....
c:\Afolder\Bfolder\Cfolder\Dfolder_3\Efolder_notto beused2
If select Cfolder .... code has to be able to detect that there are more
than 1 Dfolders and prefeblably one can select 1 or more Dfolders on which
the code will work.

This Batch idea is an example .... folder levels shown here are also
flexible (not always the same)

Thats why I am looking for some sort of folder-tree in which you can select
the folders (more than one) on which I can do my thing. This rather than
finding out the folder depth.

gt;gt;gt;gt;gt;gt; This looks a bit like selecting folders for backup in backup
gt;gt;gt;gt;gt;gt; tools/programs. lt;lt;lt;lt;lt;

Maybe this triggers somebodies brilliant mind.

Kimballquot;Tom Ogilvyquot; gt; schreef in bericht
...
gt; www.j-walk.com/ss/excel/tips/tip29.htm
gt;
gt; --
gt; Regards,
gt; Tom Ogilvy
gt;
gt;
gt; quot;Subteamquot; gt; wrote in message
gt; t...
gt;gt; Hello to you all,
gt;gt;
gt;gt; I have got some VBA code that allows a user (mainly me) to select a
gt; folder
gt;gt; on which I will do some renaming en converting of data. (also in
gt; VBA-excel)
gt;gt;
gt;gt; Folder structure can be eg:
gt;gt; C:\Afolder\Bfolder\Cfolder\Dfolder\Efolder
gt;gt;
gt;gt; If you select DFolder ... my code will do its thing on all Efolders.
gt;gt; Efolder is always the same structure (contains alos subfolder) but amount
gt; of
gt;gt; Efolders can vary.
gt;gt;
gt;gt; If user selects Bfolder or Cfolder my code doesn't work because I only
gt; look
gt;gt; one subfolder deep.
gt;gt;
gt;gt; I have used the following code to look into subfolder:
gt;gt;
gt;gt; Dim fl
gt;gt; Set fs = CreateObject(quot;Scripting.FileSystemObjectquot;)
gt;gt; Set f = fs.GetFolder(FolderName) ' FolderName is retrieved by some
gt;gt; other code
gt;gt; Set fc = f.SubFolders
gt;gt; For Each f1 In fc
gt;gt; 'Do my thing
gt;gt; Next
gt;gt;
gt;gt; Is there a variable in VBA or this object which tells you how deep the
gt;gt; folders list is?
gt;gt; In other words ... how many subfolder levels there are?
gt;gt;
gt;gt; Or is this done by going down the path of subfolders and just count it
gt; your
gt;gt; self?
gt;gt;
gt;gt;
gt;gt;
gt;gt; EVEN better or ALSO LOOKING FOR:
gt;gt;
gt;gt; Is there an object/dialog within VBA that show you the folder tree
gt; structure
gt;gt; and allows you to select / deselect folders on which you can run your
gt; code.
gt;gt;
gt;gt; (if possible ... for Excel2000 or show me the way for ExcelXP and I will
gt; try
gt;gt; to translate it)
gt;gt;
gt;gt;
gt;gt;
gt;gt; Many Thanks in Advance
gt;gt;
gt;gt;
gt;gt; Kimball
gt;gt;
gt;gt;
gt;
gt;