{"id":10330,"date":"2012-09-04T08:33:00","date_gmt":"2012-09-04T08:33:00","guid":{"rendered":"http:\/\/melotopia.net\/b\/?p=10330"},"modified":"2012-09-04T08:33:00","modified_gmt":"2012-09-04T08:33:00","slug":"%ed%8c%8c%ec%9d%bc-%ec%9d%b4%eb%a6%84-%eb%b0%94%ea%bf%94%ec%a3%bc%eb%8a%94-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%a8","status":"publish","type":"post","link":"http:\/\/melotopia.net\/b\/?p=10330","title":{"rendered":"\ud30c\uc77c \uc774\ub984 \ubc14\uafd4\uc8fc\ub294 \ud504\ub85c\uadf8\ub7a8"},"content":{"rendered":"
\n
\n

\n 1\ucd08\ub9c8\ub2e4 \uc9c0\uc815\ub41c \ud30c\uc77c\uc744 \uac10\uc2dc\ud574\uc11c, \ud30c\uc77c\uc774 \uc874\uc7ac\ud558\uba74 \uc790\ub3d9\uc73c\ub85c \ub2e4\ub978 \uc774\ub984\uc73c\ub85c \ubc14\uafd4\uc900\ub2e4.\n <\/p>\n

\n\n<\/p>\n

\n
\n
\n\"\"
\n Automover2.exe
\n <\/a>
\n<\/span>
\n\n<\/p>\n

\n

\n\n<\/p>\n

\n

\n ‘Copyright: Keehwan Nam, 2012.
\n \n<\/p>\n

\n Public Class Form1
\n
\n Private fn As String = “”
\n
\n Private index As Integer = 0
\n
\n Private begin As Integer = 0
\n
\n Private istep As Integer = 1<\/p>\n

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
\n
\n OpenFileDialog1.Multiselect = False
\n
\n OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath
\n
\n OpenFileDialog1.Title = “Set the file that you want to audit”
\n
\n OpenFileDialog1.CheckFileExists = False
\n
\n If OpenFileDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then
\n
\n fn = OpenFileDialog1.FileName
\n
\n Try
\n
\n begin = CInt(TextBox1.Text)
\n
\n Catch
\n
\n MsgBox(“Please use integers only!”)
\n
\n Exit Sub
\n
\n End Try
\n
\n Try
\n
\n istep = CInt(TextBox2.Text)
\n
\n Catch
\n
\n MsgBox(“Please use integers only!”)
\n
\n Exit Sub
\n
\n End Try
\n
\n Timer1.Enabled = True
\n
\n End If
\n
\n End Sub<\/p>\n

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
\n
\n Timer1.Enabled = False
\n
\n If System.IO.File.Exists(fn) Then
\n
\n Dim fns As String() = fn.Split(“.”)
\n
\n Try
\n
\n
\n System.IO.File.Move(fn, System.IO.Path.GetDirectoryName(fn) & “\\ThisFileMustNot.Exist”)
\n <\/span>
\n
\n
\n Do
\n <\/span>
\n
\n
\n Try
\n <\/span>
\n
\n
\n 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))
\n <\/span>
\n ‘ \uc774 \ubd80\ubd84\uc774 \uac00\uc7a5 \uc2e0\uacbd\uc4f4 \ubd80\ubd84\uc774\ub2e4. \uc790\uafb8 \uc624\ub958\uac00 \ub09c\ub300\uc11c…
\n
\n
\n Exit Do
\n <\/span>
\n
\n
\n Catch
\n <\/span>
\n
\n
\n End Try
\n <\/span>
\n
\n
\n index += 1
\n <\/span>
\n
\n
\n Loop
\n <\/span>
\n
\n
\n Catch
\n <\/span>
\n
\n End Try
\n
\n End If
\n
\n Timer1.Enabled = True
\n
\n End Sub<\/p>\n

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
\n
\n Dim tip As New ToolTip()
\n
\n tip.AutoPopDelay = 5000
\n
\n tip.InitialDelay = 1
\n
\n tip.ReshowDelay = 1
\n
\n tip.ShowAlways = True
\n
\n tip.SetToolTip(Button1, “(c)Keehwan Nam,” & vbCr & “2012, APRI, GIST.”)
\n
\n tip.SetToolTip(TextBox1, “Starting index”)
\n
\n tip.SetToolTip(TextBox2, “Step”)
\n
\n begin = CInt(TextBox1.Text)
\n
\n istep = CInt(TextBox2.Text)
\n
\n End Sub
\n
\n End Class<\/p>\n<\/div>\n

\n\n<\/p>\n

\n \uc2e4\ud589\uc5d0\ub294 \ub2f7\ub1372.0\uc774 \ud544\uc694\ud558\uace0 \uc708\ub3c4\uc6b0\uc988 \uc804\uc6a9\uc774\ub2e4. \ubc14\uc774\ub7ec\uc2a4\uac00 \uc758\uc2ec\uac00\uba74 VB.net\uc5d0\uc11c \uc704\uc758 \uc18c\uc2a4\ucf54\ub4dc\ub97c \uc9c1\uc811 \ube4c\ub4dc\ud574\ub3c4 \ub41c\ub2e4. \ub514\uc790\uc778 \uc18c\uc2a4\ub294 \uc0dd\ub7b5.\n <\/p>\n

\n\n<\/p>\n

\n \ubb50 \uc774\ub7f0\uac78 \ub2e4 \ub9cc\ub4dc\ub098 \ud558\uaca0\uc9c0\ub9cc, \ub204\uad70\uac00\ub294 \ud544\uc694\ud558\uace0 \ub204\uad70\uac00\ub294 \ub9cc\ub4e4\uac8c \ub41c\ub2e4. \uac04\ub2e8\ud55c \ud504\ub85c\uadf8\ub7a8\uc774\ub77c \uadf8\ub0e5 \ubbfc\uac04\uc5d0 \uacf5\uac1c\ud55c\ub2e4. \ucf54\ub4dc\ub97c \uc77d\uc5b4\ubcf4\uba74 \uc54c\uaca0\uc9c0\ub9cc, \ub9cc\ub4e4\uae30\uac00 \ub9e4\uc6b0 \uadc0\ucc2e\uc544 \ud588\ub2e4\ub294 \uc0ac\uc2e4\uc744 \uc54c \uc218 \uc788\ub2e4.
\n \n<\/p>\n

\n \uc774 \ub8e8\ud2f4\uc744 \uc798 \ud65c\uc6a9\ud558\uba74 \uc2e4\ud5d8\uc2e4 \uc790\ub3d9\ud654\uc5d0 \ud55c\uac78\uc74c \ub2e4\uac00\uac08 \uc218 \uc788\uc744\ub4ef.
\n \n<\/p>\n

\n
\n
\n\"\uc2e0\uace0\"
\n<\/a>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

1\ucd08\ub9c8\ub2e4 \uc9c0\uc815\ub41c \ud30c\uc77c\uc744 \uac10\uc2dc\ud574\uc11c, \ud30c\uc77c\uc774 \uc874\uc7ac\ud558\uba74 \uc790\ub3d9\uc73c\ub85c \ub2e4\ub978 \uc774\ub984\uc73c\ub85c \ubc14\uafd4\uc900\ub2e4. Automover2.exe ‘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 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[12],"tags":[],"class_list":["post-10330","post","type-post","status-publish","format-standard","hentry","category-12"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p8o6gA-2GC","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/10330","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=10330"}],"version-history":[{"count":0,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=\/wp\/v2\/posts\/10330\/revisions"}],"wp:attachment":[{"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=10330"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=10330"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/melotopia.net\/b\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=10330"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}