Create Directory with VS2008

[Robert]

Greetings
New to Visual Studio 2008.
Always us VB6.0 SP5.

I am trying to copy files from A to B.
I select a directory, and copy files. Works ok, but it does not create the
directory first.

snippet.
Private Sub cmdTo_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles cmdTo.Click

'Open the Dialog Box to Copy Files.

With FolderBrowserDi alog1

..ShowNewFolder Button = True

..Description = "Select the Location for Files to be copied to."

..RootFolder = Environment.Spe cialFolder.Desk top

End With

' If a file is not opened, then set the initial directory to the

' FolderBrowserDi alog.SelectedPa th value.

If lblTo.Text = "" Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

lblTo.Text = Nothing

End If

' Display the openFile dialog.

Dim result As DialogResult = FolderBrowserDi alog1.ShowDialo g()

' OK button was pressed.

If (result = DialogResult.OK ) Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

' Cancel button was pressed.

ElseIf (result = DialogResult.Ca ncel) Then

Return

End If

Exit Sub

End Sub

Private Sub cmdCopy_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCopy.Click

''''My.Computer .FileSystem.Cre ateDirectory(lb lTo.Text & "\" &
lblFrom.Text)"" "" Does not work

My.Computer.Fil eSystem.CopyDir ectory(lblFrom. Text, lblTo.Text, _

FileIO.UIOption .AllDialogs, FileIO.UICancel Option.DoNothin g)

Exit Sub

I have added this line

My.Computer.Fil eSystem.CreateD irectory(lblTo. Text & "\" & lblFrom.Text)

Does not except this. In VB6 I could create a directory with from "\" to.

How do you create a directory, when selection is made.
--
Thanks in advance
bob
ro******@mounta incable.net

[Cor Ligthert[MVP]]

Robert,

I first will try you to learn how to fish and then give you the fish.

If you test this like you do and it does not work, then simplify your
problem, in this case by instead using a string instead of a variable you
see direct the problem.

My.Computer.Fil eSystem.CreateD irectory("C:\Ro bert")

I tried this and it created a folder on Drive C Robert.

As I already expected (but I seldom use the My Class) does it show direct
the problem for you.

Cor



"Robert" <ro****@nowhere .comschreef in bericht
news:en******** ******@TK2MSFTN GP02.phx.gbl...

Greetings
New to Visual Studio 2008.
Always us VB6.0 SP5.

I am trying to copy files from A to B.
I select a directory, and copy files. Works ok, but it does not create
the directory first.

snippet.
Private Sub cmdTo_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles cmdTo.Click

'Open the Dialog Box to Copy Files.

With FolderBrowserDi alog1

.ShowNewFolderB utton = True

.Description = "Select the Location for Files to be copied to."

.RootFolder = Environment.Spe cialFolder.Desk top

End With

' If a file is not opened, then set the initial directory to the

' FolderBrowserDi alog.SelectedPa th value.

If lblTo.Text = "" Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

lblTo.Text = Nothing

End If

' Display the openFile dialog.

Dim result As DialogResult = FolderBrowserDi alog1.ShowDialo g()

' OK button was pressed.

If (result = DialogResult.OK ) Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

' Cancel button was pressed.

ElseIf (result = DialogResult.Ca ncel) Then

Return

End If

Exit Sub

End Sub

Private Sub cmdCopy_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCopy.Click

''''My.Computer .FileSystem.Cre ateDirectory(lb lTo.Text & "\" &
lblFrom.Text)"" "" Does not work

My.Computer.Fil eSystem.CopyDir ectory(lblFrom. Text, lblTo.Text, _

FileIO.UIOption .AllDialogs, FileIO.UICancel Option.DoNothin g)

Exit Sub

I have added this line

My.Computer.Fil eSystem.CreateD irectory(lblTo. Text & "\" & lblFrom.Text)

Does not except this. In VB6 I could create a directory with from "\" to.

How do you create a directory, when selection is made.
--
Thanks in advance
bob
ro******@mounta incable.net

[Zebra Code]

"Robert" <ro****@nowhere .comha scritto nel messaggio Greetings

New to Visual Studio 2008.
Always us VB6.0 SP5.
I am trying to copy files from A to B.
I select a directory, and copy files. Works ok, but it does not create
the directory first.
snippet.
Private Sub cmdTo_Click(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles cmdTo.Click
'Open the Dialog Box to Copy Files.
With FolderBrowserDi alog1
.ShowNewFolderB utton = True
.Description = "Select the Location for Files to be copied to."
.RootFolder = Environment.Spe cialFolder.Desk top
End With
' If a file is not opened, then set the initial directory to the
' FolderBrowserDi alog.SelectedPa th value.
If lblTo.Text = "" Then
lblTo.Text = FolderBrowserDi alog1.SelectedP ath
lblTo.Text = Nothing
End If
' Display the openFile dialog.
Dim result As DialogResult = FolderBrowserDi alog1.ShowDialo g()
' OK button was pressed.
If (result = DialogResult.OK ) Then
lblTo.Text = FolderBrowserDi alog1.SelectedP ath
' Cancel button was pressed.
ElseIf (result = DialogResult.Ca ncel) Then
Return
End If
Exit Sub
End Sub
Private Sub cmdCopy_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles cmdCopy.Click
''''My.Computer .FileSystem.Cre ateDirectory(lb lTo.Text & "\" &
lblFrom.Text)"" "" Does not work
My.Computer.Fil eSystem.CopyDir ectory(lblFrom. Text, lblTo.Text, _
FileIO.UIOption .AllDialogs, FileIO.UICancel Option.DoNothin g)
Exit Sub
I have added this line
My.Computer.Fil eSystem.CreateD irectory(lblTo. Text & "\" & lblFrom.Text)
Does not except this. In VB6 I could create a directory with from "\" to.
How do you create a directory, when selection is made.
--
Thanks in advance
bob

Imports System.IO

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
If Not Directory.Exist s(Path.Combine( Application.Sta rtupPath,
"test_dir") ) Then _
Directory.Creat eDirectory(Path .Combine(Applic ation.StartupPa th,
"test_dir") )
End Sub

if you run it in the vs ide, in your bin\debug folder you should find the
test_dir subfolder.
if you run the exe, the subfolder should be in the exe's path.
i just had a look at path combine, looks rather powerful.
btw, i'm also used to classic vb :)

hth, ZC

[Robert]

That would work, if I now the Directory Name that is being copied.

As I stated, It is selected from the FolderBrower1.

I am able to get the complete path, but not just the selected Directory
Name.

Thanks away for the sample.
I will keep it if I ever have the need to hardcode a copy to!

"Cor Ligthert[MVP]" <no************ @planet.nlwrote in message
news:1C******** *************** ***********@mic rosoft.com...

Robert,

I first will try you to learn how to fish and then give you the fish.

If you test this like you do and it does not work, then simplify your
problem, in this case by instead using a string instead of a variable you
see direct the problem.

My.Computer.Fil eSystem.CreateD irectory("C:\Ro bert")

I tried this and it created a folder on Drive C Robert.

As I already expected (but I seldom use the My Class) does it show direct
the problem for you.

Cor



"Robert" <ro****@nowhere .comschreef in bericht
news:en******** ******@TK2MSFTN GP02.phx.gbl...

>Greetings
New to Visual Studio 2008.
Always us VB6.0 SP5.

I am trying to copy files from A to B.
I select a directory, and copy files. Works ok, but it does not create
the directory first.

snippet.
Private Sub cmdTo_Click(ByV al sender As System.Object, ByVal e As
System.EventAr gs) Handles cmdTo.Click

'Open the Dialog Box to Copy Files.

With FolderBrowserDi alog1

.ShowNewFolder Button = True

.Description = "Select the Location for Files to be copied to."

.RootFolder = Environment.Spe cialFolder.Desk top

End With

' If a file is not opened, then set the initial directory to the

' FolderBrowserDi alog.SelectedPa th value.

If lblTo.Text = "" Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

lblTo.Text = Nothing

End If

' Display the openFile dialog.

Dim result As DialogResult = FolderBrowserDi alog1.ShowDialo g()

' OK button was pressed.

If (result = DialogResult.OK ) Then

lblTo.Text = FolderBrowserDi alog1.SelectedP ath

' Cancel button was pressed.

ElseIf (result = DialogResult.Ca ncel) Then

Return

End If

Exit Sub

End Sub

Private Sub cmdCopy_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles cmdCopy.Click

''''My.Compute r.FileSystem.Cr eateDirectory(l blTo.Text & "\" &
lblFrom.Text)" """ Does not work

My.Computer.Fi leSystem.CopyDi rectory(lblFrom .Text, lblTo.Text, _

FileIO.UIOptio n.AllDialogs, FileIO.UICancel Option.DoNothin g)

Exit Sub

I have added this line

My.Computer.Fi leSystem.Create Directory(lblTo .Text & "\" & lblFrom.Text)

Does not except this. In VB6 I could create a directory with from "\" to.

How do you create a directory, when selection is made.
--
Thanks in advance
bob
ro******@mounta incable.net

[J.B. Moreno]

In article <uo************ **@TK2MSFTNGP02 .phx.gbl>,
Robert <ro****@nowhere .comwrote:

That would work, if I now the Directory Name that is being copied.

As I stated, It is selected from the FolderBrower1.

I am able to get the complete path, but not just the selected Directory
Name.

Thanks away for the sample.
I will keep it if I ever have the need to hardcode a copy to!

Cor's code wasn't just for when you have a hardcoded path.

He just simplified the code to make it more clear what was happening.
If you use a variable in place of the hard coded string, and it doesn't
work, then there's only one answer -- your variable doesn't contain the
right string.

--
J.B. Moreno