How do I dynamically create a directory? 1

[nkdoshi]

How to I dynamically create a directory under the C: drive based on user input?

For example, if a user named "Bob" enters his name into a form and clicks on a button, how do I get that button to create the folder "C:\Bob"?

Any help would be appreciated!
Thanks,
NKDOSHI [sig][/sig]

 

[DannyB]

Try using Mkdir, (one way) or using API function calls (Another way). [sig]<p> Daniel Barreto<br><a href=mailto: Daniel.Barreto@Netc.pt> Daniel.Barreto@Netc.pt</a><br><a href=

http://dba.8m.com>

</a><br>

http://dba.8m.com<br>

http://www.lusosis.pt

[/sig]

 

[VB400]

Another way:

Dim FSO As Scripting.FileSystemObject
Dim FS As Scripting.Folders
Dim F As Scripting.Folder

Set FSO = New Scripting.FileSystemObject
Set F = FSO.CreateFolder(&quot;c:\TestFolder&quot

To simplify things you can make a Reference to Microsoft Scripting Language and you'll see a load of stuff on Drives, Folders, Files, etc. It is quite a nice library!

If you make a Project Reference then you can drop the &quot;Scripting.&quot; Prefix and then it's more readable!
[sig][/sig]

 

[bigfoot]

VB400 is right. If you want to keep it simple use MkDir(&quot;dirname&quot, but if you REALLY want to work with files and folders, lookup FileSystemObject.

It's neet. [sig][/sig]

 

[nkdoshi]

Thanks for your help! The problem is that MkDir only creates a directory that you hardcode in. It will not create a directory from a user input.

The other problem is that I have used the following code to make the directory I want, but it only works on Win 98 NOT Win NT. I am using Access 97 and have administrator rights to the machine.

Dim fs, f, f1, fc, S, secfolder
Set fs = CreateObject(&quot;Scripting.FileSystemObject&quot
Set f = fs.GetFolder(&quot;C:\asqhold&quot
Set fc = f.SubFolders
fc.Add [Form_Personal Data]!Name

I always get the error &quot;Active X can't create object.&quot; Is there another way complete this action? Or does anyone know why this doesn't work on NT??

Thanks!
NkDoshi [sig][/sig]

 

[VB400]

NkDoshi,

If your form name is &quot;Personal Data&quot; then change the last line to read as follows:

fc.Add Forms![Personal Data]!Name

The code that I shared earlier definitely works with NT so I don't think that it is a platform issue! [sig][/sig]

 

[nkdoshi]

Well I tried that change and I still get the error &quot;Active X can't create object&quot;. Then I tried your previous code and got the following:

Compile Error:
User-defined type not defined

It doesn't seem to like &quot; Dim FSO As Scripting.FileSystemObject&quot;

Do I need an additional reference? If so why because I don't need one on Win98?

Thanks so much for the help!
nkdoshi
[sig][/sig]

 

[VB400]

Sorry about that!

Make a reference to &quot;Microsoft Scripting Runtime&quot; which is the DLL: C:\WINNT\System32\SCRRUN.DLL

or instead use this code and you don't have to make any references:

Dim FSO, F
Set FSO = CreateObject(&quot;Scripting.FileSystemObject&quot
Set F = FSO.CreateFolder(&quot;c:\TestFolder&quot

[sig][/sig]

 

[nkdoshi]

Thanks so much!! The problem was that the system did not even have the scrrun.dll. I had to copy it from another machine and manually register it into the Windows Registry! But now my original code works just fine. Thanks again for your help :-D [sig][/sig]