Question

我从源文件夹中复制了一些测试图像..但我想让他们的图像名称变为“ 001,002 ”..等等。

        For Each path As ListViewItem In listbat1.Items 
        For Each Ftif As String In Directory.GetFiles(path.SubItems(0).Text, "*.tif")

            'For n As Integer = 0 To listbat1.Items.Count - 1

            Dim Finfo As New FileInfo(Ftif)

            My.Computer.FileSystem.CopyFile(Ftif, txtdirectory.Text & imgdir & Finfo.Name & ".tif")

            'Next
        Next
    Next

有可能吗？如果是的话，你能帮助我吗？请... ..

Answer 1

如果要使用渐进式计数器重命名文件，则可以使用带有格式表达式的ToString轻松完成。在此示例中，D3表示使用三个数字将输入数字转换为字符串，如果数字未转换为足够的字符，则填充为零。

Dim counter as Integer = 0
For Each path As ListViewItem In listbat1.Items 
    For Each Ftif As String In Directory.GetFiles(path.SubItems(0).Text, "*.tif")

        Dim Finfo As New FileInfo(Ftif)
        Dim destFile = Path.Combine(txtDirectory.Text, imgdir, counter.ToString("D3") + ".tif")
        My.Computer.FileSystem.CopyFile(Ftif, destFile)
        Counter = Counter + 1
    Next
Next

另请注意，应始终使用Path类

来构建路径

从源文件夹复制后是否可以重命名文件？

1 个答案: