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

解決

---

はじめまして
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

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

---

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

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

※返信する前に利用規約をご確認ください。

ツイート