У меня ошибка в коде, и я не знаю, как ее исправить, я использую VB - PullRequest
Новая
       224

У меня ошибка в коде, и я не знаю, как ее исправить, я использую VB

0 голосов
/ 07 августа 2020

У меня есть эта ошибка в моем коде, который является VB / VBS (почти то же самое), но я использую Visual Studio, так что я думаю, что это в VB. Я новичок в кодировании / программировании / чем угодно, поэтому у меня много проблем с ошибками кода.

Подробности:

  • Использование Visual Studio (обычная, а не Visual Studio Code)
  • На Acer Nitro 5? Не то что maters
  • New To Coding
  • (Вы) понимаете, что весь этот список бессмысленен

Ошибка:

enter image description here

The Error In My Code:

введите описание изображения здесь

Ошибка в моем коде 

filetxt = ShortcutsFolder.CreateTextFile(WeblinkName)

Мой код 

Imports System.IO

Public Class Form1
    Private Sub WeblinkAdd_Click(sender As Object, e As EventArgs) Handles WeblinkAdd.Click

        Dim filesys, ShortcutsFolder, filetxt
        filesys = CreateObject("Scripting.FileSystemObject")
        ShortcutsFolder = filesys.GetFolder("C:\Program Files\Shortcuts Helper\Shortcuts")
        filetxt = ShortcutsFolder.CreateTextFile(WeblinkName)
        filetxt.WriteLine(Weblink)
        filetxt.Close

    End Sub

    Private Sub WeblinkOpen_Click(sender As Object, e As EventArgs) Handles WeblinkOpen.Click

        Dim ofd As OpenFileDialog = New OpenFileDialog
        ofd.InitialDirectory = "C:\Program Files\Shortcuts Helper\Shortcuts"
        ofd.Filter = "Text files|*.txt"
        ofd.Title = "Open Shortcut"
        If ofd.ShowDialog() <> DialogResult.Cancel Then
        End If

    End Sub
End Class
...