我在某个目录中有一组文件(此目录的路径存储在textbox1上)。那套看起来像这样
1.JPG
2.JPG
5.JPG
7.JPG
9.jpg
11.JPG
15.jpg
51.jpg
但我需要让它们看起来像这样
1.JPG
2.JPG
3.JPG
4.JPG
5.JPG
6.JPG
7.JPG
8.JPG
我尝试过不同的组合
For Each file1 As String In IO.Directory.GetFiles(TextBox1.Text)
和
My.Computer.FileSystem.RenameFile(file1,cnt.ToString +“.jpg”)
和别的。但是我一直都失败了,因为IO.Directory.GetFiles(TextBox1.Text)集合中的项目顺序,看起来像是
1.JPG
11.JPG
12.JPG
...
所以,我不知道该怎么做。
请帮助我!
所以,我解决了这个问题。我刚刚创建了另一个目录(它的路径存储在textbox4中)并执行了此操作:
Dim cnt2 As Integer = 0
For Each file1 As String In IO.Directory.GetFiles(TextBox1.Text)
cnt2 += 1
FileCopy(file1, TextBox4.Text + cnt2.ToString + ".jpg")
Next
For Each file1 As String In IO.Directory.GetFiles(TextBox1.Text)
File.Delete(file1)
Next
For Each file2 As String In IO.Directory.GetFiles(TextBox4.Text)
FileCopy(file2, TextBox1.Text + file2.Replace(TextBox4.Text, ""))
Next