标签： floating-point ieee-754
其他就是Infinity本身。
我找到的最短的是For Each objFile In .SelectedItems strFilename = Dir(objFile, vbNormal) Next objFile 。
For Each objFile In .SelectedItems strFilename = Dir(objFile, vbNormal) Next objFile
（这基本上是：Is there is a more concise representation of Infinity in JSON than 1e309?）