答案 0 :(得分:0)
首先你必须阅读你的CSV ..我想这不是太大,所以做一些像
这样的事情Dim MyCSV() As String = IO.File.ReadAllLines("c:\my file.csv")
然后在CSV中继续使用“For Each”行
For Each Line In MyCSV.ToArray
Next
在这个For Each中你必须拆分当前行...我想是一个标准的CSV所以必须是“,”(我认为)
Dim MySplitLine() As String = Line.Split(","c)
最后(同样在For Each中)您可以使用新名称重命名文件
If IO.File.Exists("c:\folder 1\folder 2\" & MySplitLine(1) & ".extension") Then
FileSystem.Rename("c:\folder 1\folder 2\" & MySplitLine(1) & ".extension",
"c:\folder 9\folder 8\" & MySplitLine(0) & ".extension")
End If
别忘了设置扩展程序。