파일 이름 바꿔주는 프로그램

‘Copyright: Keehwan Nam, 2012.

Public Class Form1

Private fn As String = “”

Private index As Integer = 0

Private begin As Integer = 0

Private istep As Integer = 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

OpenFileDialog1.Multiselect = False

OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath

OpenFileDialog1.Title = “Set the file that you want to audit”

OpenFileDialog1.CheckFileExists = False

If OpenFileDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then

fn = OpenFileDialog1.FileName

Try

begin = CInt(TextBox1.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Try

istep = CInt(TextBox2.Text)

Catch

MsgBox(“Please use integers only!”)

Exit Sub

End Try

Timer1.Enabled = True

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = False

If System.IO.File.Exists(fn) Then

Dim fns As String() = fn.Split(“.”)

Try


System.IO.File.Move(fn, System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”)



Do



Try



System.IO.File.Move(System.IO.Path.GetDirectoryName(fn) & “\ThisFileMustNot.Exist”, fn.Substring(0, fn.Length – fns(fns.Length – 1).Length – 1) & CStr(begin + (istep * index)) & “.” & fns(fns.Length – 1))

‘ 이 부분이 가장 신경쓴 부분이다. 자꾸 오류가 난대서…


Exit Do



Catch



End Try



index += 1



Loop



Catch


End Try

End If

Timer1.Enabled = True

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim tip As New ToolTip()

tip.AutoPopDelay = 5000

tip.InitialDelay = 1

tip.ReshowDelay = 1

tip.ShowAlways = True

tip.SetToolTip(Button1, “(c)Keehwan Nam,” & vbCr & “2012, APRI, GIST.”)

tip.SetToolTip(TextBox1, “Starting index”)

tip.SetToolTip(TextBox2, “Step”)

begin = CInt(TextBox1.Text)

istep = CInt(TextBox2.Text)

End Sub

End Class