1

所以首先，我很抱歉，因为我在 VBScript 方面完全是个菜鸟。我一直在谷歌搜索并尝试过去几天找到的代码示例，但我似乎无法将这些部分组合在一起。

我需要编写的代码的目的是监视文件夹中的文件。将文件写入特定文件夹时，我需要能够获取文件名并将其缩短到少于 80 个字符，然后将其移动到另一个文件夹，将原始文件夹留空。如果文件恰好在文件名中已经包含少于 80 个字符，那么我宁愿保留名称并将其移动到不同的文件夹。放置在受监视文件夹中的文件名具有相当随机的名称。

我发现了很多如何使用 VBScript 重命名文件的示例，但这些都表明您已经有了文件名。

我还找到了几个如何使用 WMI 事件监视文件夹的示例，但我还没有弄清楚如何将它们联系在一起。

有什么帮助吗？

谢谢！

4

1 回答 1

0

这将为您提供目录中所有文件的名称。

    Dim fso, folder, files, sFolder
    Set fso = CreateObject("Scripting.FileSystemObject")
    sFolder = "C:\DOCUME~1\Philip\LOCALS~1\Temp"
    Set folder = fso.GetFolder(sFolder)
    Set files = folder.Files
    For each k In files
        WScript.Echo k
    Next
于 2012-12-20T22:57:17.680 回答