ファイルの共有モード

ある方法でファイルを開いたときの共有モードがどうなるか調査。
環境：Windows XP Pro SP2

LoadLibrary

書き込み・削除ロックされる。読み込みはできる。

hModule = LoadLibrary( _T("c11DLL.DLL") );
func = (TFUNC)GetProcAddress( hModule, "MyFunction" );
FreeLibrary( hModule );

fopen（VC++6.0）

未調査。

VB 6.0 の Open 関数

まったくロックされない。読み込み・書き込み・削除全てできる。

Dim iFile As Integer
iFile = FreeFile
Open "c:\moge.txt" For Append As #iFile
Print #iFile, CStr(Now) & " : " & "hgoehgoe"
Close #iFile

Scripting.FileSystemObject

書き込み・削除ロックされる。読み込みはできる。

Set objFS = CreateObject("Scripting.FileSystemObject")
' 追加書き込み
Set objTS = objFS.OpenTextFile("c:\moge2.txt", 8, True)

objTS.WriteLine "hogehgoehgoe" & vbCrLf
objTS.Close

Set objTS = Nothing
Set objFS = Nothing

CreateObject

書き込み・削除ロックされる。読み込みはできる。

Set o = WScript.CreateObject("Hoge.Hage")
MsgBox o.Meso("xxx")
Set o = Nothing