Save As

[Paddy1979]

Hello everyone.

Is its possible it check whether a users C:\ is in read only mode i.e you cannot save a file there ?

As my macro is falling over as it saves the file as C:\MPimport.xls but if this is prevented i need to save as H:\MPimport.xls

Many Thanks
Patrick

 

[schielrn]

Maybe you can just use error handling. This is a very basic example, but maybe you can expand on it:

Sub SaveToC
On Error Goto Handler
'Code to save in C:\
 
Exit Sub
Handler:
'Code to save in H:\
End Sub

Hope that helps.

 

[Richard Schollar]

Hi Patrick

Here's a function that should work to test this:

Function DriveWriteable(DriveLetter As String) As Boolean
Dim i As Integer
i = FreeFile
On Error Resume Next
Open DriveLetter & ":\TestAccess.txt" For Binary Access Write As #i
If Err = 0 Then
    DriveWriteable = True
    Close #i
End If
End Function

Use in code like:

If DriveWriteable("C") Then
    'save to C drive
Else
  'save to other drive
End If

 

[Paddy1979]

Thanks Richard , (again ) , thats just what i was after.

Thanks also schielrn