重命名目录中的文件,特别是VB.net的顺序

时间:2014-04-17 11:09:08

标签: vb.net file directory vb.net-2010

我在某个目录中有一组文件(此目录的路径存储在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

0 个答案:

没有答案