Dim i As ItnegerDim filename As StringFor i=1 To N ' 文件数量 filename = "1," & i & "[1].jpg" ' 文件操作....Next