工作上的需要，要將上千張的圖檔的檔名換成品號資料中的品號欄位，
而原本圖檔的檔名是條碼編號，所以只要做對應，再將檔名換掉就好…
因為找了很多的軟體，都無法符合需求，所以就自己寫程式了…
程式很簡單，只有短短幾行喔~

dim Files() as string

'檔案路徑，存到Files是完整路徑喔!存到Files的是完整路徑喔~如E:\INVMB_PIC\123.jpg
Files = System.IO.Directory.GetFiles("E:\INVMB_PIC")
For i = 0 To dv.Count - 1
For j = 0 To Files.Length - 1
If Trim(dv.Item(i).Item("MB013")) & ".jpg" = Files.GetValue(j).ToString.Replace("E:\INVMB_PIC\", "") Then

FileSystem.Rename(Files.GetValue(j), "E:\INVMB_PIC\" & Trim(dv.Item(i).Item("MB001")) & ".jpg")

a = a + 1

End If

Next

' Files.IndexOf(Files, Me.Dataset11.INVMB.Rows(i).Item("MB013"))

Next

Me.Label1.Text = "修改過檔名有" & a & "筆"

Friends 101

六人行第一季第1集
hump(駝背)
hairpiece(假髮)
weird(怪異的)
intestine(腸子)
aura(靈氣)
murky(黑暗的)
Why does everyone keep fixating(注視) on that?
hysterical(歇斯底里的)
sobbing(啜泣)
Strip joint(脫衣舞團)
bridesmaids(伴娘)
gorgeous(華麗的)
freaked out(瘋狂)
kinda drifted apart(有點疏遠)

pipe organ(管風琴)
hitting on (勾引) her
this is a Dear Diary moment(終於被你等到了 or 值得記念的時刻).
wandering(閒逛)
eyelashes(睫毛)
bookcase(書櫃)
screwed.(螺絲)
idiot(白痴)
I shredded(撕碎) by boyfriend's favorite bath tower
collapses(倒塌)
invade(入侵)
barn raising (穀倉收獲季節)scene
hanger(衣架)