Question

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

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

我找到了很多关于如何使用VBScript重命名文件的示例，但这些都预示着您已经拥有了文件名。

我还发现了一些如何使用WMI事件监视文件夹的示例，但我还没弄清楚如何将这些文件绑定在一起。

对此有何帮助？

谢谢！

Answer 1

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

    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

协助VBScript监视文件夹的文件，然后重命名并移动它们

1 个答案: