Я делаю программу, которая будет перечислять моды в игре. У меня есть код для этого здесь. Но расположение каталога мода не является правильным способом показать это.
Imports System
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' make a reference to the mod folder
Dim di As New IO.DirectoryInfo("I:\Steam\steamapps\common\Kerbal Space Program\GameData")
' find the folders
Dim diar1 As IO.DirectoryInfo() = di.GetDirectories()
Dim dra As IO.DirectoryInfo
' find the files
Dim diar As IO.FileInfo() = di.GetFiles()
Dim drag As IO.FileInfo
' make a list of all folders in the main folder
For Each dra In diar1
Liste.Items.Add(dra)
Next
' make a list of all files in the main folder
For Each drag In diar
Liste.Items.Add(drag)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Liste.SelectedIndexChanged
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
End Sub
End Class
Таким образом, вместо того, чтобы указать полное местоположение каталога в списке «I:\Steam\steamapps\common\Kerbal Space Program\GameData», он автоматически найдет каталог \KSP\GameData. Можно ли это сделать? Если да, то может ли кто-нибудь объяснить фрагментом кода или простым объяснением, как я могу это сделать?
Бонусные вопросы:
Не могли бы вы использовать VB для копирования папки мода из файла WinRar в каталог мода? Если да, то может ли кто-нибудь объяснить фрагментом кода или простым объяснением, как я могу это сделать?
Могу ли я «отключить» папки с модами, чтобы игра не обнаружила их, но все же могла снова «включить»? (Вместо того, чтобы полностью удалить мод) Если да, то может ли кто-нибудь объяснить, либо фрагментом кода, либо простым объяснением, как я могу это сделать?
Я пробовал Google, хотя я ищу кого-то, кто мог бы объяснить это мне.