How do I create a folder?

[Rachel]

I have tried:

System.IO.File. Create("C:\Fold erName")

It does not create a folder. Any ideas without using the File System Object?

Rachel

[Joseph MCP]

August 8, 2004

You have to create a IO.DirectoryInf o(path) with the path being the
parent of the folder you want. So if you wanted to create the folder:
"c:\program files\MyNewFold er", you would create a
DirectoryInfo(" c:\program files") object. Then you call the
CreateSubDirect ory(newfolderna me) method of the DirectoryInfo object...

Private Sub Button1_Click(. ..)
Dim iDirectory as New System.IO.Direc toryInfo("c:\pr ogram files\")
iDirectory.Crea teSubDirectory( "MyNewFolde r")
End Sub

This would then create the MyNewFolder in C:\Program Files\.
Have a nice day!
Joseph
"Rachel" wrote:

I have tried:

System.IO.File. Create("C:\Fold erName")

It does not create a folder. Any ideas without using the File System Object?

Rachel

[Mr. B]

With Deft Fingers, Rachel <Ra****@discuss ions.microsoft. com> wrote:

System.IO.File .Create("C:\Fol derName")
It does not create a folder. Any ideas without using the File System Object?

Try this (or just take out what you want):

Dim TempDir As String
TempDir = "C:\FolderN ame"
If Directory.Exist s(TempDir) Then
Exit Sub
Else : MkDir(TempDir)
End If
The MkDir is what you want.

Regards,

Bruce

[Ken Tucker [MVP]]

Hi,

System.IO.Direc tory.CreateDire ctory("C:\New Directory")

Ken

--------------------

"Rachel" <Ra****@discuss ions.microsoft. com> wrote in message
news:F7******** *************** ***********@mic rosoft.com...
I have tried:

System.IO.File. Create("C:\Fold erName")

It does not create a folder. Any ideas without using the File System
Object?

Rachel

[Schorschi]

This works for me...

----------------------------------------------------

Option Explicit On
Option Strict On

'

Imports System.IO
Imports System.IO.Direc tory

'

Module PathModule

'

Friend Function CreatePath(ByVa l thePath As String) As Boolean

Dim theDirectory As DirectoryInfo, _
thePathOrNot As Boolean

'

thePathOrNot = Exists(thePath)

If (Not (thePathOrNot)) Then

'

theDirectory = CreateDirectory (thePath)

With theDirectory

'

thePathOrNot = .Exists

End With

End If

'

Return (thePathOrNot)

End Function

End Module