はじめまして
VB6で作成した実行ファイルがあります
その実行ファイルが起動中の時は、名前の変更が出来ないようにしたいのですが
可能なのでしょうか?
ロックされているファイルは他のプロセスからのファイル名変更ができないので、
exeが自分自身のファイルをロックすることが出来ればなんとかなりそうですね。
試したことがないので実際に可能かどうかはわかりませんが。
できますよ。ひろさんのおっしゃってるとおりです。
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
どこかでファイルクローズを忘れないようにしてください。
解決しました
ありがとうございました
ツイート | ![]() |