PRINTERCONFIG PATH WHY DOES THIS CODE NOT WORK?

[vbcad]

I HAVE PASTED THE CODE BELOW(ORIGINAL AND MODIFIED). I COPIED THE CODE FROM THE EXAMPLES THAT CAME WITH THE SOFTWARE AND JUST MODIFIED THE PATH IN THE CODE. I HAVE DONE THIS WITH THE SUPPORT PATH PROPERTIES AND IT WORKS FINE. WHAT IS THE PROBLEM WITH THIS ONE. WHERE I CHANGED THE PATH SEEMS TO BE THE PROBLEM.(TEXT IN RED)WORKING CODE FROM ORIGINAL IS IN BLUE

NEW CODE

Sub Eci_plotstylepath()
' This example reads and modifies the preference value that controls
' the location for printer configuration files.
' When finished, this example resets the preference value back to
' its original value.

Dim ACADPref As AcadPreferencesFiles
Dim originalValue As Variant, newValue As Variant

' Get the files preferences object
Set ACADPref = ThisDrawing.Application.Preferences.Files

' Read and display the original value
originalValue = ACADPref.PrinterConfigPath
MsgBox "The PrinterConfigPath preference is set to: " & originalValue

' Modify the PrinterConfigPath preference by changing the path to
ACADPref.PrinterConfigPath = "\\main1\drawings\Z-SUPPORT\ECI CUSTOM FILES"
newValue = ACADPref.PrinterConfigPath
MsgBox "The PrinterConfigPath preference has been set to: " & newValue

End Sub

ORIGINAL CODE
Sub Example_PrinterConfigPath()
' This example reads and modifies the preference value that controls
' the location for printer configuration files.
' When finished, this example resets the preference value back to
' its original value.

Dim ACADPref As AcadPreferencesFiles
Dim originalValue As Variant, newValue As Variant

' Get the files preferences object
Set ACADPref = ThisDrawing.Application.preferences.Files

' Read and display the original value
originalValue = ACADPref.PrinterConfigPath
MsgBox "The PrinterConfigPath preference is set to: " & originalValue

' Modify the PrinterConfigPath preference by changing the path to "C:\"
ACADPref.PrinterConfigPath = "C:\"
newValue = ACADPref.PrinterConfigPath
MsgBox "The PrinterConfigPath preference has been set to: " & newValue

' Reset the preference back to its original value
'
' * Note: Comment out this last section to leave the change to
' this preference in effect
ACADPref.PrinterConfigPath = originalValue
MsgBox "The PrinterConfigPath preference was reset back to: " & originalValue
End Sub

 

[LochDhu]

Check the err.description - if it's "Invalid Argument" then Acad can not resolve the unc path. It may also be permissions, Acad checks the path for validity as soon as you set this property.

Scott

 

[vbcad]

IT GIVES ME RUN TIME ERROR -2147024809 (80070057) INVALID ARGUMENT. I AHVE THIS SAME PATH IN A DIFFERENT APPLICATION THAT SETS THE SUPPORT PATH AND IT WORKS FINE. BY CHECKING FOR VALIDITY DO YOU MEAN IF THE PATH EXISTS OR NOT?

 

[LochDhu]

Yes, it checks to see if the path exists before it accepts it.

Scott

 

[vbcad]

path exists. i even copied the path from explorer and pasted it in. i checked my permissions on the server and i have full permissions. I have been experimenting and the application will not let me put in a network path. (//main1/etc.....)i can however type the path in manually thru the options dialog box in Autocad. Any ideas?