Question

我需要一个简单的VB脚本来寻求帮助，我需要部署该软件以捕获几台每月仅几次连接到我的域的计算机，并检查文件。

我基本上需要查看的是文件是否存在。如果是..停止。

如果没有，则寻找文件夹。如果存在，请执行此操作。然后停下来。如果不存在，请创建文件夹，然后执行此操作。

这就是我所拥有的。当文件在那里并且我想要的只是停止脚本时，我在第9行出现错误。

prod_order_line_item_id

Answer 1

您可以将脚本粘贴到函数或子例程中，然后调用该子例程。可以退出子例程和函数：

Option Explicit

main

Sub main
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")    
    If fso.FileExists("C:\output.log") Then
        Exit Sub
    Else
        fso.CreateFolder("C:\temp") 
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
    End If
    If fso.FolderExists( "C:\temp") 
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER" 
    Else
        fso.CreateFolder("C:\temp")
        fso.CopyFolder "\\DOMAIN\FOLDER", "c:\temp\FOLDER"
    End If
End Sub

您的脚本将执行，您要做的第一件事是调用main子。然后运行，如果条件正确，则退出。由于在调用main之后不再有命令，因此脚本结束。

VB脚本定位文件

1 个答案: