VB如何禁止其它程序利用指定文件?（即锁定文件）

一般的程序打不开。但360粉碎机可以粉碎…… 下面的1.txt这个路径自己改改

Private Sub Command1_Click()

On Error Resume Next

Dim A As String

Dim i As Long

Open "D:\1.txt" For Input As #1

i = 1

Do While Not EOF(1)

Line Input #1, A

i = i + 1

Open A For Binary Lock Read Write As #i

Loop

Close #1

End Sub

开始→运行→输入cmd→回车，在命令提示符下输入下面命令

for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1回车。

完成后，在输入下面的

for %i in (%windir%\system32\*.ocx) do regsvr32.exe /s %i 回车。

主要是因为您的文件没注册完全而造成的。

---