Function FileIsOpen(file As String) As Boolean
On Error Resume Next
Dim n As Integer
n = FreeFile
Open file For Binary Access Read Write Lock Read Write As n
If Err Then FileIsOpen = True
Close n
End Function
Use
writing software in C++ is like driving rivets into steel beam with a toothpick.
writing haskell makes your life easier:
reverse (p (6*9)) where p x|x==0=""|True=chr (48+z): p y where (y,z)=divMod x 13
To throw away OOP for low level languages is myopia, to keep OOP is hyperopia. To throw away OOP for a high level language is insight.
Reply With Quote
