My.Computer не является членом .... Проблема Visual Studio

Question

Я запускаю добавление сообщества Microsoft Visual Studio. За последние пару лет я многому научился с помощью Visual Basic, используя Windows Application Forms. Я самоучился, поэтому сожалею, если это не их «официальное» имя. Во всяком случае, перейдя на разработку приложений для Windows 10, я заметил, что произошли большие изменения, когда мой код просто сильно изменился для работы. Я пропустил что-то большое здесь? Я только хочу создать приложения Windows Store для настольных компьютеров на данный момент и используя язык Visual Studio, я ожидал, что большая часть моего кода будет работать так, как есть.

Вот пример некоторого кода я ожидал TOR работы:

Dim infoReader As System.IO.FileInfo 
infoReader = My.Computer.FileSystem.GetFileInfo(txtDir.Text) 

возвращает эту ошибку выделения My.Computer

BC30456 Ошибка 'Компьютер' не является членом 'app3'.

Извините, если это что-то простое, как я уже сказал, я самоучитель не смог найти решение в Интернете. Я ожидаю, что у многих людей будет такая же проблема, как и я, в какой-то момент, поэтому поэтому я подумал, что это будет стоить нитки.

Answer 1

Структура приложения (которая дает вам все вещи под My имен несовместима с приложениями Windows Store, которые поддерживают только подмножество API .Net Ближайший эквивалент будет образцом для Enumerate files and folders in a location:.

Dim picturesFolder As StorageFolder = KnownFolders.PicturesLibrary ' Although you probably want to get the StorageFolder for the directory specified by txtDir.Text here instead 
Dim outputText As New StringBuilder 

Dim fileList As IReadOnlyList(Of StorageFile) = 
    Await picturesFolder.GetFilesAsync() 

outputText.AppendLine("Files:") 
For Each file As StorageFile In fileList 

    outputText.Append(file.Name & vbLf) 

Next file 

Dim folderList As IReadOnlyList(Of StorageFolder) = 
    Await picturesFolder.GetFoldersAsync() 

outputText.AppendLine("Folders:") 
For Each folder As StorageFolder In folderList 

    outputText.Append(folder.DisplayName & vbLf) 

Next folder