#VB 檔案鎖定

希望透過Server建立一個檔案
當使用者權限可以編輯

檢查該檔案是否被鎖定
是    則只有瀏覽權限
否    則建立鎖定 鎖定該檔案

跳出或系統崩潰
解除鎖定 (類似開啟檔案,中斷則解除鎖定)


大致上要注意宣告的開檔 變數
要宣告成表單的痊癒變數

該變數將會在表單結束時才回收
就可以做到持續鎖定的方式(檔案Open)

'發現說關閉表單並沒有釋放FileStream.Open
關閉表單做用 try-catch 做釋放動作
======================================================

FileInfo 類別

http://msdn.microsoft.com/zh-tw/library/system.io.fileinfo(v=VS.80).aspx

FileAttributes 列舉型別

http://msdn.microsoft.com/zh-tw/library/system.io.fileattributes(v=VS.80).aspx

Offline	檔案是離線的。檔案資料不是直接可供使用的。
	ReadOnly	檔案是唯讀的。

Temporary

檔案是暫時的。檔案系統嘗試將所有資料保留於記憶體以備快速存取，而非將資料清除回存於大量儲存裝置。當不再需要時，暫存檔應該由應用程式刪除。

======================================

FileStream.Lock 方法

http://msdn.microsoft.com/zh-tw/library/system.io.filestream.lock.aspx

好像可以

但是變成要開啟兩次以後才能LOCK

感覺像是我宣告鎖定檔案的方式
沒辦法持續到該表單結束以前才 UnLock


可能需要改寫
透過嘗試寫入的方式
而不適單純開啟檔案的模式
======================================
File.Open 檔案鎖定問題

http://www.blueshop.com.tw/board/show.asp?subcde=BRD20060519113644VOY

档案锁定法 (for VB)

http://www.pdljs.com/viewthread.php?tid=1507

使用法：LockFile "档案名称" (Sub)

Private Sub LockFile (FileName As String)
Dim Temp As Integer
Temp = FreeFile
Open FileName For Binary As Temp
Lock Temp
End Sub