🚀 go-pugleaf

> $B%U%!%$%k%O%s%I%k$N<hF@$d%/%m!<%:$O!"(BCreateFile $B4X?t$H(B CloseHandle
>$B4X?t$r;HMQ$7$^$9!#(B
> CreateFile $B4X?t$K$O!"$$$/$D$+$N0z?t$rM?$($kI,MW$,$"$j$^$9!#Nc$($P!"(B
>$BDL>o$N%U%!%$%k$KBP$7$F(B SetFileTime $B$r9T$$$?$$>l9g!"(BGENERIC_WRITE$B!"(B
>OPEN_EXISTING$B!"(BFILE_ATTRIBUTE_NORMAL $B$J$I$N%U%i%0$rM?$($k$3$H$K$J$k$H(B
>$B;W$$$^$9!#(B
>

$B0J2<$N$h$&$K$d$C$F$_$^$7$?$,!"$&$^$/CM$,<hF@$G$-$^$;$s!&!&!&!#(B
hFile = CreateFile(CurrentFile, GENERIC_READ, vbNull, sAtt, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, "")

$B$d$C$Q!"(BNULL$B$H$+(B""$B$,B?$$$N$,LdBj$J$N$G$7$g$&$+!)(B
$B@k8@J8$N2U=j$O!"(B

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA"
(ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal
dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal
dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal
hTemplateFile As Long) As Long

Const GENERIC_READ = &H80000000
Const OPEN_EXISTING = 3
Const FILE_ATTRIBUTE_NORMAL = &H80

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

$B$H$7$F$*$j!"(B
Dim hFile As Long
Dim sAtt As SECURITY_ATTRIBUTES
$B$HJQ?t@k8@$7$F$^$9!#(B

$BMpJ8$K$J$C$F$7$^$$$^$7$?$,!"$h$m$7$/$*4j$$$$$?$7$^$9!#(B


>Computer Institute of Japan, Ltd.
>$B:4F#@59((B masahiro@cij.co.jp
>