2023-12-13から1日間の記事一覧
Function IsFileOpen(filePath As String) As Boolean Dim fileNum As Integer On Error Resume Next fileNum = FreeFile() Open filePath For Binary Access Read Write Lock Read Write As #fileNum Close #fileNum If Err.Number = 0 Then IsFileOpen = F…