Question eFileAccesErr Auto-CAD 2011

[Powerboat]

This error gives he on the line: "bron.Database.SaveAs("C:\test.dwg", DwgVersion.Current)"


Could someone help me.

Tanks


Maarten




Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click
Me.OpenFileDialog1.Filter = "DWG files (*.dwg)|*.dwg"
Me.OpenFileDialog1.ShowDialog()
Dim TekeningNaam = Me.OpenFileDialog1.FileName
BlokNaam = Me.OpenFileDialog1.SafeFileName
BlokNaam = BlokNaam.Remove(BlokNaam.Length - 4, 4)
bron = Application.DocumentManager.Add("")
bron.Database.SaveAs("C:\test.dwg", DwgVersion.Current)
bron.LockDocument()
bron.SendStringToExecute("-Insert" & vbCr & TekeningNaam & vbCr & "s 1 r 0 0,0 z all ", True, False, False)





End Sub

 

[Powerboat]

It's a windows7 security issue.
Couldn't save directly on c drive.

Maarten.