diff options
| author | EverythingWindows <[email protected]> | 2022-11-06 15:20:38 +0700 |
|---|---|---|
| committer | EverythingWindows <[email protected]> | 2022-11-06 15:20:38 +0700 |
| commit | 8b5d4344f7e418369ebe10cb9eb2ac94314537b4 (patch) | |
| tree | d76cf36af89cb7a5b29c1fca5b0e3697d909d142 /ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | |
| parent | 8e4b29c5a54d679099d8eb487c76062c4960c069 (diff) | |
| download | shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.tar.gz shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.tar.bz2 shiftos-therevival-old-8b5d4344f7e418369ebe10cb9eb2ac94314537b4.zip | |
dir command done
Diffstat (limited to 'ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb')
| -rw-r--r-- | ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb index 66766ce..a04ab37 100644 --- a/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb +++ b/ShiftOS-TheRevival/MainForms/ShiftOSMenu.vb @@ -106,8 +106,8 @@ Public Class ShiftOSMenu End Sub Private Sub CheckInstall() - If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS") = True Then - Dim WhatVersion As String = File.ReadAllText(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\version.txt") + If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then + Dim WhatVersion As String = File.ReadAllText(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\version.txt") If WhatVersion = My.Resources.CurrentVersion Then Else @@ -119,8 +119,8 @@ Public Class ShiftOSMenu ShiftOSUpdater.Show() End If Else - If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS") = True Then - If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.Temp & "\ShiftOS\ShiftFS") = True Then + If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS") = True Then + If Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS") = True Then Directory.CreateDirectory(My.Computer.FileSystem.GetTempFileName & "\ShiftOS\ShiftFS") End If Else |