ต้องการจะเขียนโปรแกรม VB ให้ renameไฟล์ทีละหลายๆไฟล์

	Dim myDirInfo As DirectoryInfo
	Dim arrFileInfo As Array
	Dim myFileInfo As FileInfo
	myDirInfo = New DirectoryInfo("C:\MyFiles))		
	arrFileInfo = myDirInfo.GetFiles("*.jpg")
	For Each myFileInfo In arrFileInfo
		Me.lblText.Text = Me.lblText.Text & (myFileInfo.Name & "<br>")
		myFileInfo.MoveTo("newfile.jpg") '*** Move New file ***'
		myFileInfo.Delete() '*** Delete Old File ***'
	Next myFileInfo
	myDirInfo = Nothing