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

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 & "筆"