Constant Variable Declaration Issue

[Skyybot]

I'm trying to declare a Module level Constant (below). Why does it error?

Public Const ps As String = Application.PathSeparator

 

[Fluff]

Application.PathSeparator

Is not a constant, hence you get an error.

 

[Skyybot]

@Fluff - But it's Read Only. How is it not a Constant?

 

[Skyybot]

@Fluff - But it's Read Only. How is it not a Constant?

I still don't completely understand why you can declare a Read-Only Property to a Constant but I found a way to achieve my goal with a Property Get.

Option Explicit



Sub TestCont()
Dim fn As String
fn = "Book1.xlsx"
Debug.Print ThisWorkbook.Path; ps; fn
' Or
MsgBox ThisWorkbook.Path & ps & fn
End Sub




Public Property Get ps() As String
ps = Application.PathSeparator
End Property

 

[Fluff]

How is it not a Constant?

Because it depends on what OS your using.

 

[smozgur]

The marked solution has been changed to the correct post provided as the answer to the original question in post #2.
No further action is required.