Directory Creation Feature Help

[MWB]

Hey guys, I was trying to implement a feature for a program I made for work, but im not sure where to even start on it.



The program is for gathering information on new products that come out. We are going to wind up having hundreds of products, and to keep everything organized I would like to have all of the product information stored in one main parent folder. Each product in that main folder is then to be designated its own directory that is devided by three categories that include pictures, performance results, and reports

The folder structure should look like this

Main Folder
Product 1
Images
Performance Results
Reports
Product 2
Images
Performance Results
Reports

and so forth.

I would like to keep the user out of the directory in able to make the program more user friendly, and also to keep users from moving files around.

Is there a way that I can have a command button that when pushed, will ask the user the product name, and then after doing so will copy and paste a template of the file structure shown above into the main parent directory?

So when the user hits this command button it will promt them for a product name, say they call it "Rubber Gasket".

Then the program will set up a directory for the user in the parent directory that looks like the following

Main Folder
Rubber Gasket
Pictures
Performance Results
Reports

I dont really know where to start on this, so i figured this would be a good place to look for hints that could point me in the right direction.

Thanks for any help in advance, and sorry for the long post.

[weekend00]

     dim pname as string
     pname = inputBox ("Product Name")
     mkdir "Main Folder\Rubber Gasket"
     mkdir "Main Folder\Rubber Gasket\Performance Results"
     mkdir "Main Folder\Rubber Gasket\Pictures"
     mkdir "Main Folder\Rubber Gasket\Reports"

[MWB]

Sorry im unfortunitly not too Access savy, but I think I understand the majority of that.

So I would have to made a textbox called Product Name firstly. Then I would have to make a command button that says on click pname = [Product Name]? And then from there I can create the folders as listed below? Would modifying the code such as i did below make the sub folder match what the product name is?


dim pname as string
pname = inputBox ("Product Name")
mkdir "Main Folder\[pname]"
mkdir "Main Folder\[pname]\Performance Results"
mkdir "Main Folder\[pname]\Pictures"
mkdir "Main Folder\[pname]\Reports"

Sorry agian for all of the questions. Still trying to get my bearings with access.

[weekend00]

I am sorry, I was too rush that I forgot to change the folder name.

you don't need to create a textbox because inputBox will pop up a window ask for input. you can only create a command button and put the codes in the click event.

The code should like this:

dim pname as string
pname = inputBox ("Product Name")
mkdir "Main Folder\" & pname
mkdir "Main Folder\" & pname & "\Performance Results"
mkdir "Main Folder\" & pname & "\Pictures"
mkdir "Main Folder\" & pname & "\Reports"

[MWB]

Awesome, that was a lot easier then I thought. Thanks a lot man, I really appreciate it.

One more quick question and I should be all set. Is there a way to put a copy of a master powerpoint into each sub directory each time one is created?

[weekend00]

is "master powerpoint" a file?

to copy a file, use following statement:
FileCopy source, destination

for example:
FileCopy "......\master powerpoint", ".....\Main Folder\Rubber Gasket\Performance Results"

[MWB]

Yeah that's actually exactly what I wanted to do. Thanks a lot for all of the help, saved me a from having a big headache lol.