Question

我正在制作一个程序，列出游戏中的mod。我在这里得到了它的代码。但mod目录位置不是显示它的正确方法。

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

因此，而不是将整个目录位置告知列表框＆＃34; I：\ Steam \ steamapps \ common \ Kerbal Space Program \ GameData＆＃34;它会自动找到\ KSP \ GameData目录。可以这样做吗？如果是这样，任何人都可以用代码片段或只是简单的解释来解释，我该怎么做？

奖金问题：

你能用VB将一个mod文件夹从WinRar文件复制到mod目录吗？如果是这样，有人可以用代码片段或只是简单的解释来解释，我该怎么做？
我可以＆＃34;禁用＆＃34; mod文件夹，所以游戏不会检测到它们，但仍然可以启用＆＃34;再次？（而不是完全删除mod）如果是这样，任何人都可以用代码片段或只是简单的解释来解释，我该怎么做？

我曾尝试谷歌，但我正在寻找可以向我解释的人。

Answer 1

可以从rar（或其他压缩文件）中复制文件，我已经用Java完成了它，虽然我不知道如何在VB中完成它。

关于第二个问题，对于禁用，只需重命名文件夹（甚至通过为它们提供不同的扩展名来重命名各个mod，例如someMod.ext.disabled）。这应该是微不足道的。

删除文件夹VB

1 个答案: