Пример кода: Imports SystemImports System.IOModule VBDemoSub Main()Dim Path As String = GetPersonalFolder()&"\MyText"Dim DirInfo As New DirectoryInfo(Path)Dim Parent As StringConsole.WriteLine("Initial Directory : "&DirInfo.FullName)Parent = DirInfo.Parent.FullNameWhile Parent DirInfo.Root.FullNameConsole.WriteLine("Parent Directory : " & _DirInfo.Parent.FullName)Parent = DirInfo.Parent.FullNameDirInfo = New DirectoryInfo(Parent)End WhileEnd SubFunction GetPersonalFolder() As StringDim E As EnvironmentReturn E.GetFolderPath(Environment.SpecialFolder.Personal)End FunctionEnd Module
демонстрирует:
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
использование свойства Parent и Root для восстановления корневого каталога для данного каталога(Верный ответ)
использование класса FileInfo
использование класса DirectoryInfo(Верный ответ)