copy file (vb.net)

[taufik]

hi guys... i new person using vb.net
i have some problem in copy a file into specific directory create by user...
below is coding that write that may help u all to solve my problem

Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
#End Region
 
    Dim filePath As String
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        ComboBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim souFile As String = TextBox2.Text
        Dim desFile = TextBox1.Text
        Dim result As StreamWriter
        'dirCopy = TextBox2.Text
        Try
            If TextBox1.Text = "" And ComboBox1.Text = "" And TextBox1.Text = "" Then
                MsgBox("sorry", MsgBoxStyle.OKOnly, "Alert")
            Else
                Directory.CreateDirectory("C:\Documents and Settings\Crazy_Frog\My Documents\Visual Studio Projects\CreatePath\Document" & "\" & ComboBox1.Text & "\" & TextBox1.Text)
                File.Copy(TextBox1.Text, TextBox2.Text)
                MsgBox("File copy successful", MsgBoxStyle.Information, "Information")
            End If
 
        Catch ex As Exception
            MsgBox("File copy successful", MsgBoxStyle.Information, "Information")
        End Try
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        OpenFileDialog1.ShowDialog()
        filePath = OpenFileDialog1.FileName
        TextBox2.Text = filePath
    End Sub
End Class
 

please help me... urgent...

[Plater]

What exactly is the problem?
It looks ok enough.
Although where you catch your exception you still have it display the success message, which could be confusing.

If you have an error, try debugging it to see what the situation is when it errors.

[taufik]

ok.... actually textbox1.text and combobox1.text represent folder that i create...
and textbox2.text is the openFileDialog1.showDialog() function... from the openFileDialog1.showDialog() function i want to save the file that selected in textbox2.text to the following input user based on textbox1.text and combobox1.text...

actually... i can create the folder based on input from user... but i cannot copy the file into the directory that user create....

i hope u get an idea for this problem....
thanks....

[Plater]

Right I gathered that it wasn't working.
WHAT PART is not working, surely there is an error message somewhere?

[taufik]

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
OpenFileDialog1.ShowDialog()
filePath = OpenFileDialog1.FileName
TextBox2.Text = filePath
End Sub

* this button for open file dialog where the path are written on the TextBox2.Text

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim result As StreamWriter
Try
If TextBox1.Text = "" And ComboBox1.Text = "" And TextBox1.Text = "" Then
MsgBox("sorry", MsgBoxStyle.OKOnly, "Alert")
Else
Directory.CreateDirectory("C:\Documents and Settings\Crazy_Frog\My Documents\Visual Studio Projects\CreatePath\Document" & "\" & ComboBox1.Text & "\" & TextBox1.Text)
'File.Copy(TextBox1.Text, TextBox2.Text)
MsgBox("File copy successful", MsgBoxStyle.Information, "Information")
End If

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

* this Button1_Click for creating folder where the path are specifically created based on Directory.CreateDirectory

my problem actually are to copy the file based on TextBox2.Text (path) to the Directory.CreateDirectory
if i click the Button1_Click, the folder will be created but the the file based on TextBox2.Text not exist..

and another thing... i forgotten to create an error massage....
maybe you have an idea...

:)