AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Filesystem: Add GetAppDataPath function

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-16 16:22:41 +02:00
parent 0a9b22b470
commit 3552867a76
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Modules.Filesystem/File.vb
View File

@ -175,6 +175,11 @@ Public Class File
End Try End Try
End Function End Function
Public Function GetAppDataPath(CompanyName As String, ProductName As String)
Dim oLocalAppData = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
Return Path.Combine(oLocalAppData, CompanyName, ProductName)
End Function
Private Function GetFilenameWithVersion(FileNameWithoutExtension As String, VersionSeparator As Char, FileVersion As Integer, Extension As String) As String Private Function GetFilenameWithVersion(FileNameWithoutExtension As String, VersionSeparator As Char, FileVersion As Integer, Extension As String) As String
If FileVersion <= 1 Then If FileVersion <= 1 Then
Return $"{FileNameWithoutExtension}{Extension}" Return $"{FileNameWithoutExtension}{Extension}"