using wildcards and moving folders

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JayM - 10 Jan 2006 21:50 GMT

I have written the following code
Sub ClientFolder()
' New Client Folder Creation

Dim MyFolderName

MyFolderName = InputBox("Please type Client's Folder Name :")
MkDir "c:\data2\_Clients\" + MyFolderName
MkDir "c:\data2\_Clients\" + MyFolderName + "\" + "Bills"
MkDir "c:\data2\_Clients\" + MyFolderName + "\" + "Documents"
MkDir "c:\data2\_Clients\" + MyFolderName + "\" + "Correspondence"

End Sub

I want to be able to check the first letter of MyFolderName and then move
that folder into c:\data2\_Clients\A (or B or C etc) dependent on what the
initial letter is thereby having 26 folders (A thru' Z) to alphabetically
list all clients

Any help would be greatly appreciated

Thanks

Reply to this Message

Doug Robbins - Word MVP - 11 Jan 2006 05:25 GMT

How about using:

MyFolderName = InputBox("Please type Client's Folder Name :")
MkDir "c:\data2\_Clients\" & Left(MyFolderName, 1) & "\" & MyFolderName
MkDir "c:\data2\_Clients\" & Left(MyFolderName, 1) & "\" &
MyFolderNameMyFolderName & "\Bills"
MkDir "c:\data2\_Clients\" & Left(MyFolderName, 1) & "\" &
MyFolderNameMyFolderName & "\Documents"
MkDir "c:\data2\_Clients\" & Left(MyFolderName, 1) & "\" &
MyFolderNameMyFolderName & "\Correspondence"

Note that you use the ampersand to concatenate the string, not the +

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

>I have written the following code
> Sub ClientFolder()
[quoted text clipped - 18 lines]
>
> Thanks

Reply to this Message

JayM - 11 Jan 2006 07:40 GMT

What a superstar!

That works perfectly

Thanks for your help

> How about using:
>
[quoted text clipped - 31 lines]
> >
> > Thanks

Reply to this Message