実行ファイルの名前の変更を禁止するには

解決

RAM 2006-05-18 19:35:48 No: 131460

はじめまして
VB6で作成した実行ファイルがあります
その実行ファイルが起動中の時は、名前の変更が出来ないようにしたいのですが
可能なのでしょうか？

ひろ 2006-05-18 20:58:58 No: 131461

ロックされているファイルは他のプロセスからのファイル名変更ができないので、
exeが自分自身のファイルをロックすることが出来ればなんとかなりそうですね。
試したことがないので実際に可能かどうかはわかりませんが。

かものねぎ 2006-05-19 07:20:19 No: 131462

できますよ。ひろさんのおっしゃってるとおりです。

Private Sub Command1_Click()

Dim lngFreeFile As Long
Dim strMyExe As String
lngFreeFile = FreeFile
strMyExe = App.Path & "\Project1.exe"
Open strMyExe For Input As #lngFreeFile
Lock #lngFreeFile

End Sub

どこかでファイルクローズを忘れないようにしてください。

RAM 2006-05-19 17:38:27 No: 131463

解決しました
ありがとうございました