Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Как найти системную папку? Добавлено: 23.09.04 14:41  

Автор вопроса:  K&M
Помогите пожалуйста: как мне найти системную папку "Windows" в .NET, я в примерах видел, что в VB.6 вроде бы за это отвечает переменная WinDir$, а в .NET? Сразу спасибо!

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 sne



Разработчик Offline Client

ICQ: 233286456 

Вопросов: 34
Ответов: 5445
 Web-сайт: hw.t-k.ru
 Профиль | | #1
Добавлено: 23.09.04 15:05
Сейчас пойдут тысяча и один совет, и вот один из способов: GetWindowsDirectory...

Ответить

Номер ответа: 2
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #2
Добавлено: 23.09.04 15:28
Environment.SystemDirectory

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #3 Добавлено: 23.09.04 19:16
метод через "попку"

Я НЭТ в глаза невидел, но коммандная строка думаю там есть... так вот в ней, что-то типа "set > C:\1.txt" и в 1.txt будет список всех сис. папок с их путями.

Ответить

Номер ответа: 4
Автор ответа:
 Oleg K



Вопросов: 15
Ответов: 72
 Профиль | | #4 Добавлено: 24.09.04 00:21
2HACKER
метод через "попку", предложенный Вами - это уже не "модно"

Правильно сказал Павел.
А если подробно то вот примерчик, который покажет все на что намекнул Павел.

1. На форму положите TextBox
- Name = txtFolders
- Dock = Fill
2. В коде формы пропишите следующее:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListFolder(Environment.SpecialFolder.ApplicationData)
        ListFolder(Environment.SpecialFolder.CommonApplicationData)
        ListFolder(Environment.SpecialFolder.CommonProgramFiles)
        ListFolder(Environment.SpecialFolder.Cookies)
        ListFolder(Environment.SpecialFolder.Desktop)
        ListFolder(Environment.SpecialFolder.DesktopDirectory)
        ListFolder(Environment.SpecialFolder.Favorites)
        ListFolder(Environment.SpecialFolder.History)
        ListFolder(Environment.SpecialFolder.InternetCache)
        ListFolder(Environment.SpecialFolder.LocalApplicationData)
        ListFolder(Environment.SpecialFolder.MyComputer)
        ListFolder(Environment.SpecialFolder.MyMusic)
        ListFolder(Environment.SpecialFolder.MyPictures)
        ListFolder(Environment.SpecialFolder.Personal)
        ListFolder(Environment.SpecialFolder.ProgramFiles)
        ListFolder(Environment.SpecialFolder.Programs)
        ListFolder(Environment.SpecialFolder.Recent)
        ListFolder(Environment.SpecialFolder.SendTo)
        ListFolder(Environment.SpecialFolder.StartMenu)
        ListFolder(Environment.SpecialFolder.Startup)
        ListFolder(Environment.SpecialFolder.System)
        ListFolder(Environment.SpecialFolder.Templates)
        txtFolders.Select(0, 0)
    End Sub

    Private Sub ListFolder(ByVal folder_type As System.Environment.SpecialFolder)
        ;Dim txt As String = folder_type.ToString & ":"
        txtFolders.Text &= String.Format("{0,-25}", txt) & _
            Environment.GetFolderPath(folder_type) & vbCrLf
    End Sub

3. Стартуйте проект.

Ответить

Номер ответа: 5
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #5 Добавлено: 24.09.04 00:33
Oleg K Значит я старомоден :)

Ответить

Номер ответа: 6
Автор ответа:
 K&M



Вопросов: 14
Ответов: 39
 Профиль | | #6 Добавлено: 24.09.04 14:43
Спасибо огромное!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам