Application Error

[iamanoob]

I couldn't get another reply with my other post, so i've posted my new problem. I'm trying to get a save file dialogue to overwrite a file with the same name.

with some help I got the following code --->

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
          If RadioButton16.Checked Then
            If IO.File.Exists("bob.txt") Then
                Dim sfd As New SaveFileDialog
                If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
                    IO.File.Copy("bob.txt", sfd.FileName, True)
                End If
            End If
        End If

I keep getting an error saying "Unhandled exception has occurred in your application." Then the next paragraph says "The process cannot access the file 'E:\Copy of Release+Fonts\bob.txt' because it is being used by another process."

I've checked a million times, there is no other processes using bob.txt.

[bergerkiller]

Your post lacks information about the file "bob.txt", but these types of violations also occur with Read-only files. VB .NET can not write to or delete files with the property "read only" set.

In case you want to be able to delete and write to read-only files, you will have to 'reset' the attributes of the file, and then perform the operation:

If System.IO.File.Exists(sfd.FileName) Then
    SetAttr(sfd.FileName, FileAttribute.Normal)
End If
IO.File.Copy("bob.txt", sfd.FileName, True)

[iamanoob]

ok, thanks for the reply. But the file is not Read-Only, i checked. and when i added the code you provided, it still gave me an error. and what more information should I provide?

[bergerkiller]

It's hard to tell what the problem is, but the OS like to set lots of rules before you can access files.

What if you delete the file before copying?:

If System.IO.File.Exists(sfd.FileName) Then
    SetAttr(sfd.FileName, FileAttribute.Normal)
    IO.File.Delete(sfd.FileName)
End If
IO.File.Copy("bob.txt", sfd.FileName, True)

Ow, and you could try it with using a full path instead of a relative path:

            Dim sourcefile As String = Application.StartupPath & "\bob.txt"
            If IO.File.Exists(sourcefile) Then
                Dim sfd As New SaveFileDialog
                If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Dim destfile As String = sfd.FileName
                    If System.IO.File.Exists(destfile) Then
                        SetAttr(destfile, FileAttribute.Normal)
                        System.IO.File.Delete(destfile)
                    End If
                    IO.File.Copy(sourcefile, destfile)
                End If
            End If

But, since the error is about the "bob.txt" file (saw it too late), I might have a clue of what is going on. In case you wrote the file "bob.txt" in your program, do not forget to close your writer:

            Dim writer As New System.IO.StreamWriter("bob.txt", True)
            writer.WriteLine("line")
            writer.Close() '<- very important

If you used the System.IO.File.WriteAllText it could be the system forgot to close the writer.

Just in case, are you sure the file is not used by your program or was used in the past during the runtime of your program?

[sapator]

Have you tried with fileinfo (also give the path to bob.txt)?

 Dim f As New IO.FileInfo("c:\bob.txt")
        f.CopyTo("sfd.FileName", True)

[iamanoob]

No, I cannot provide a path because, my program is sopposed to be downloaded on different computers, and a different user might save the file to a different directory. So I cannot specify a directory, so that's why the final output is going to be in the same directory as bob.txt, which is why I have the IO.File.Exists... line. I'll try the code bergerkiller provided in the morning and see how it turns out. Thanks for the help so far! (=

[sapator]

The path was hard coded by me, i assumed that you would provide it through file dialog or with the Application.StartupPath or something.