Правильная обработка обратной косой черты при использовании свойства App.Path

Public Function AppPath(sFileName As String) As String
If Right$(App.Path, 1) = "\" Then
AppPath = App.Path & sFileName
Else
AppPath = App.Path & "\" & sFileName
End If
End Function

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Правильная обработка обратной косой черты при использовании свойства App.Path", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!