Public Function FileOpened(ByVal paraFile As String) As Boolean
        Dim fs As System.IO.FileStream
        Try
            fs = System.IO.File.Open(paraFile, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite)
            fs.Close()
            'ファイルが開いている。
            Return False
        Catch ex As Exception
            'ファイルが閉じっている。
            Return True
        End Try
End Function