VB6高效率版批量修改目录内的图片名字代码

Private Sub Command1_Click()

    Dim FileSystem As Object

    Dim SourceFolder As String

    Dim FileList As Object

    Dim File As Object ' 声明 File 变量

    Dim FileName As String

    Dim NewFileName As String

    Dim Counter As Long

    Set FileSystem = CreateObject("Scripting.FileSystemObject")

    SourceFolder = App.Path ' 设置为您的图片所在目录

    Set FileList = FileSystem.GetFolder(SourceFolder).Files

    Counter = 1

    For Each File In FileList

        If LCase(FileSystem.GetExtensionName(File)) = "jpg" Then

            FileName = FileSystem.GetFileName(File)

            NewFileName = FileSystem.BuildPath(SourceFolder, Format(Now(), "yymmddHHNNSS") & "_" & Counter & ".jpg")

            FileSystem.MoveFile File, NewFileName

            Counter = Counter + 1

        End If

    Next

    Label1.Caption = "操作完毕"

End Sub