Results 1 to 3 of 3

Thread: How to determine if file already open?

  1. Oct 16th, 2000, 12:53 PM #1
    softwareguy74
    softwareguy74 is offline

    Thread Starter
    Frenzied Member
    Join Date
    Aug 2000
    Posts
    1,091
    Hi,

    Before I execute some code, I want to see if a certain file has already been opened by my program. Is there a way to check such as If #1 is open then...

    Thanks,

    Dan
    Reply With Quote Reply With Quote
  2. Oct 16th, 2000, 01:19 PM #2
    Vb2000
    Vb2000 is offline
    Junior Member
    Join Date
    Aug 2000
    Posts
    27
    Try this
    Code:
    Private Sub Command1_Click()

On Error GoTo errhandler
FileCopy "FileName", "Destination"

errhandler:
If Err.Number = 75 Then MsgBox "File already in use"

End Sub
    Reply With Quote Reply With Quote
  3. Oct 16th, 2000, 01:28 PM #3
    kedaman
    kedaman is offline
    transcendental analytic kedaman's Avatar
    Join Date
    Mar 2000
    Location
    0x002F2EA8
    Posts
    7,221
    Use FreeFile to detect next free filenumber isntead, and have a variable for each filenumber.
    Code:
    Dim hfile as integer
hfile=Freefile
Open File for binary as hfile
Get #hfile,,variable
Msgbox Lof(hfile)
Close hfile
    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 Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width