Visual Basic-“ IF”没有结束

Question

If My.Computer.FileSystem.FileExists("pack/locale_ro.epk") Then My.Computer.FileSystem.DeleteFile("pack/locale_ro.epk")

    PB_GSM.Value = 10

    If My.Computer.FileSystem.FileExists("pack/locale_ro.eix") Then My.Computer.FileSystem.DeleteFile("pack/locale_ro.eix")

    PB_GSM.Value = 20

    If My.Computer.FileSystem.FileExists("pack/root.epk") Then My.Computer.FileSystem.DeleteFile("pack/root.epk")

    PB_GSM.Value = 30

    If My.Computer.FileSystem.FileExists("pack/root.eix") Then My.Computer.FileSystem.DeleteFile("pack/root.eix")

    PB_GSM.Value = 40

    My.Computer.Network.DownloadFile("http://example")

我相信我写的一切都正确，但是我写“ if” -s并不重要，我不能结束他们。 如果我在一行旁边写了“如果结束”，它会显示类似“如果必须在结束时加上匹配的如果”的信息。 另一个问题是，有关下载链接的行带有下划线，并显示“过载解析失败，因为没有可访问的'DownloadFile'接受此数量的参数”。

PS：这是一个尝试使用metin2修补程序的方法，我不知道该怎么做，但我敢肯定这是仅在需要的文件上更新游戏的一种方法。谢谢帮助:)

Answer 1

您将它们全部放在一行中。 不要在“ Then”关键字之后放置任何内容。

If My.Computer.FileSystem.FileExists("pack/locale_ro.epk") Then
  My.Computer.FileSystem.DeleteFile("pack/locale_ro.epk")
  PB_GSM.Value = 10
End If

如果寻找else-if情况，则语法如下：

If My.Computer.FileSystem.FileExists("pack/locale_ro.epk") Then
  My.Computer.FileSystem.DeleteFile("pack/locale_ro.epk")
  PB_GSM.Value = 10
ElseIf My.Computer.FileSystem.FileExists("pack/locale_ro.eix") Then
  My.Computer.FileSystem.DeleteFile("pack/locale_ro.eix")
  PB_GSM.Value = 20
' etc, etc
End If

注意，尽管这只会在找到的第一条“ True”行上运行代码。

对于DownloadFile，还需要指定目标位置：

My.Computer.Network.DownloadFile("http://example", "c:\temp\myfile.txt")

用您正在使用的路径替换c:\\temp\\路径。

Answer 2

当您发布Then语句后跟一个表达式，该表达式关闭该If语句。 本质上，您已经关闭了所有If语句。