diff --git a/Modules.Filesystem/File.vb b/Modules.Filesystem/File.vb
index bc4877d1..3a2ad940 100644
--- a/Modules.Filesystem/File.vb
+++ b/Modules.Filesystem/File.vb
@@ -175,6 +175,11 @@ Public Class File
         End Try
     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
         If FileVersion <= 1 Then
             Return $"{FileNameWithoutExtension}{Extension}"