Пример кода: Imports SystemImports System.IOModule VBDemoSub - Ответ на вопрос №1244968

Вопрос

Пример кода: 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 для восстановления корневого каталога для данного каталога
• использование класса DirectoryInfo
• использование класса FileInfo

Ответ