Moving files...simple app

[dinosaur_uk]

Hi there,

I am trying to create a program which will create a desired diretcory name, then move all the jpg files from the program directory to the new directory,...

this is what i have done so far....

I can seem to get it to work...please help ....

Dino

Dim strFileName As String
 
 
    Private Sub btnMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMove.Click
        strFileName = txtFile.Text
        IO.Directory.CreateDirectory(strFileName)
        IO.File.Move("*.jpg", Application.StartupPath & "\" & strFileName)
 
        IO.Directory.GetFiles(Application.StartupPath, "*.jpg")
 
    End Sub