给你的FileSystemObject对象加把锁

封面图 • 2025-04-26 • asp

在使用 `FileSystemObject` 对象时，如果你希望对文件或文件夹的操作进行同步控制（即加锁），可以通过多种方式实现。以下是一个示例，展示如何通过文件锁机制来确保对 `FileSystemObject` 的操作是线程安全的。

### 1. 使用文件锁机制

我们可以创建一个简单的文件锁机制，通过尝试打开一个特定的锁文件来实现。如果文件已经存在，则表示该资源正在被其他进程或线程占用。

#### 示例代码：

```vbscript
Dim fso, lockFile, isLocked

' 创建 FileSystemObject 对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 定义锁文件路径
lockFile = "C:\temp\file.lock"

' 尝试创建锁文件
On Error Resume Next
Set lockFileObj = fso.CreateTextFile(lockFile, True)
If Err.Number <> 0 Then
    ' 锁文件已存在，表示资源被占用
    isLocked = True
Else
    ' 锁文件成功创建，表示当前进程获得了锁
    isLocked = False
End If
Err.Clear

If isLocked Then
    WScript.Echo "Resource is locked by another process."
Else
    ' 在这里执行对 FileSystemObject 的操作
    WScript.Echo "Performing file operations..."
    
    ' 模拟一些文件操作
    Dim fileObj
    Set fileObj = fso.OpenTextFile("C:\temp\test.txt", 2, True)
    fileObj.WriteLine "This is a test."
    fileObj.Close
    
    ' 完成操作后释放锁
    lockFileObj.Close
    fso.DeleteFile lockFile
End If

' 清理对象
Set fileObj = Nothing
Set lockFileObj = Nothing
Set fso = Nothing
```

### 解释：
1. **锁文件**：我们创建了一个名为 `file.lock` 的文件作为锁文件。如果该文件已经存在，则表示资源被占用。
2. **尝试创建锁文件**：通过 `fso.CreateTextFile` 方法尝试创建锁文件。如果文件已经存在，则会抛出错误，表示资源被占用。
3. **释放锁**：在完成文件操作后，删除锁文件以释放锁。

### 2. 使用互斥对象（Windows API）

如果你需要更复杂的同步机制，可以使用 Windows API 提供的互斥对象（Mutex）。互斥对象可以在多个进程之间共享，确保只有一个进程能够访问某个资源。

#### 示例代码（VBScript 调用 Windows API）：

```vbscript
Dim fso, mutexHandle, isLocked

' 创建 FileSystemObject 对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 定义互斥对象名称
mutexName = "Global\MyFileLock"

' 创建互斥对象
mutexHandle = CreateMutex(0, True, mutexName)

' 检查是否获得互斥对象
If GetLastError() = ERROR_ALREADY_EXISTS Then
    isLocked = True
    WScript.Echo "Resource is locked by another process."
Else
    isLocked = False
    WScript.Echo "Obtained the lock."
    
    ' 在这里执行对 FileSystemObject 的操作
    Dim fileObj
    Set fileObj = fso.OpenTextFile("C:\temp\test.txt", 2, True)
    fileObj.WriteLine "This is a test."
    fileObj.Close
    
    ' 释放互斥对象
    ReleaseMutex mutexHandle
End If

' 清理对象
Set fileObj = Nothing
Set fso = Nothing

' Windows API 函数声明
Declare Function CreateMutex Lib "kernel32" Alias "CreateMutexA" (ByVal lpMutexAttributes As Long, ByVal bInitialOwner As Boolean, ByVal lpName As String) As Long
Declare Function ReleaseMutex Lib "kernel32" (ByVal hMutex As Long) As Long
Declare Function GetLastError Lib "kernel32" () As Long

Const ERROR_ALREADY_EXISTS = 183
```

### 解释：
1. **互斥对象**：通过 `CreateMutex` 创建一个互斥对象，并指定一个唯一的名称。如果互斥对象已经存在，则表示资源被占用。
2. **释放互斥对象**：在完成操作后，调用 `ReleaseMutex` 释放互斥对象。

### 总结：
- 如果你只需要在单个脚本中对文件系统对象进行同步控制，可以使用文件锁机制。
- 如果你需要跨多个进程或线程进行同步控制，建议使用 Windows API 提供的互斥对象。

这两种方法都可以有效地防止多个进程或线程同时访问同一个资源，从而避免数据竞争问题。