VBA宏不会正确计算/命名目录中的文件

Question

我已经创建了一个简单的宏来更改目录中文件的名称。起初它似乎是正确的，但后来我发现了一些奇怪的东西。例如，一个目录中有48个文件，最初宏数字文件正确 - “1”，“2”，“3”等等（在立即窗口中变量“i”从1变为49），但如果我多次运行宏，有时变量“i”从1变为148，第一个数目的文件从100开始：“100”，“101”，“102”等。然后我再次运行宏并正确计算文件，然后 - 再次 - 上面提到的错误发生......等等。我没有看到任何规则。非常感谢任何帮助。

new Container(
  margin: const EdgeInsets.symmetric(vertical: 4.0, horizontal: 16.0),
  child: new InkWell(
    child: new Card(
      child: new SizedBox(
        height: 56.0,
        child: new Row(
          crossAxisAlignment: CrossAxisAlignment.stretch,
          children: <Widget>[
            new Expanded(
              child: new ListTile(
                title: new Text('foo'),
              ),
            ),
            new Container(
                color: Colors.blue,
                alignment: Alignment.center,
                padding: const EdgeInsets.symmetric(horizontal: 10.0),
                child: new Text(
                  "foo",
                  style: new TextStyle(color: Colors.white),
                ),
            ),
          ],
        ),
      ),
    ),
  ),
)