Moving files...simple app
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
VB Code:
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