о,

Вероятно, здесь я буду замечен как чрезвычайно увлекательный пост, я не очень разбираюсь в VB или программисте, но я нахожусь на драйве "учиться на практике".

Я разрабатываю приложение, которое создает каталоги для пользователя и отслеживает созданные каталоги и изменения этих каталогов с помощью FileSystemWatcher.

У меня есть этот маленький фрагмент до сих пор (обновленный в ответе ваши комментарии Jimi):

Частный Sub Button_Click:

    watchfolder = New System.IO.FileSystemWatcher()
    watchfolder.Path = TodaysScanFolder
    watchfolder.Filter = ""
    watchfolder.IncludeSubdirectories = True

    watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName
    watchfolder.NotifyFilter = watchfolder.NotifyFilter Or
                       IO.NotifyFilters.FileName
    watchfolder.NotifyFilter = watchfolder.NotifyFilter Or
                       IO.NotifyFilters.Attributes

    AddHandler watchfolder.Created, AddressOf logchange
    AddHandler watchfolder.Deleted, AddressOf logchange

    watchfolder.EnableRaisingEvents = True
    btnStartScan.Enabled = False
    btnStopScan.Enabled = True
End Sub

    Public Sub logchange(ByVal source As Object, ByVal e As _
                        System.IO.FileSystemEventArgs)

    If e.ChangeType = IO.WatcherChangeTypes.Created Then
        txt_folderactivity.Text &= "File " & e.FullPath &
                                 " has been created" & vbCrLf
    End If
    If e.ChangeType = IO.WatcherChangeTypes.Deleted Then
        txt_folderactivity.Text &= "File " & e.FullPath &
                                " has been deleted" & vbCrLf
    End If
End Sub

С каждым дополнительным действием я хочу добавить вывод к txt_folderactivity.Text с 1, до этого. Затем 2, 3 и так далее.

Вы видите это текстовое поле, при изменении записывает вывод в текстовый файл примерно так:

Private Sub txt_folderactivity_TextChanged(sender As Object, e As EventArgs) Handles txt_folderactivity.TextChanged
    str = txt_folderactivity.Text
    My.Computer.FileSystem.WriteAllText(LogFileLoc, str, True)
End Sub

Я хотел бы, чтобы каждая строка / запись в этом текстовом файле начиналась с 1, 2, 3 и так далее. Кроме того, как я уже говорил, новичок в VB, похоже, собрал воедино что-то, что выглядит немного неопрятно, но функционально и будет критично для бизнеса. Любые указатели для хорошего начала работы с соответствующими учебными ресурсами VB были бы очень полезны. Спасибо всем