小编Hac*_*koo的帖子

OPSYS：Win10Pro 64 位

内存：10GB

我创建了一个批处理文件，然后将其保存到本地管理员帐户的桌面。

批处理文件命令行是这样的：

xcopy "F:\movies" "L:\movies" /d

然后我在任务计划程序中创建了一个任务计划来运行批处理文件。

我现在正在运行它并且没有看到它在运行，除了在任务计划程序库视图中刷新任务时。在那里，我看到了它，上面写着'Running'。

我担心我没有看到任何进度条，我希望看到它。有谁知道这是否可以做到？

我如何使用 vbscript 或命令行显示更改图标对话框，并使用信息将其放入我的 vbscript 中，以便让用户从更改图标对话框中选择他想要设置的图标？

这是我创建的 vbscript，并在 Windows 10 上进行了测试，它可以在桌面上创建一个文件夹并将其图标更改为挂锁图标。

Option Explicit
Dim ws,Icon,strText,DesktopFolder,strFolder
Set ws = CreateObject("wscript.Shell")
DesktopFolder = ws.SpecialFolders("Desktop")
strFolder = DesktopFolder & "\Hackoo Folder Icon Changer"
Icon = "%systemroot%\system32\shell32.dll,-48"
strText = "[.ShellClassInfo]" & vbCrLf &_
"IconResource="& Icon & vbCrLf &_
"IconFile=%systemroot%\system32\shell32.dll"
'Create a folder on our desktop
Call SmartCreateFolder(strFolder)
'Transform our folder to a system folder
Call Execute("attrib +s " & DblQuote(strFolder))
Call Write_INI_File(strFolder,strText)
'********************************************************************
Sub SmartCreateFolder(strFolder)
    Dim oFSO:Set oFSO = CreateObject("Scripting.FileSystemObject")
    If oFSO.FolderExists(strFolder) Then
        Exit Sub …