我正在尝试让应用程序找到其当前路径/目录,然后使用它来安装 zip 文件,然后将其解压缩到指定位置。(自文件夹)
Dim progDirectory As String
Public Sub Install()
progDirectory = Environment.GetFolderPath(System.Environment.CurrentDirectory)
My.Computer.FileSystem.WriteAllBytes(SelFolder & "\Resource.zip", progDirectory, False)
Unzip(SelFolder & "\Resource.zip", SelFolder)
End Sub
错误是使用 WriteAllBytes 命令时 progDirectory 所在的位置。
任何帮助将不胜感激!:)