| Вопрос: Этот XML меня убивает | Добавлено: 19.09.07 17:15 |
Автор вопроса:  KreAtoR
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | | #16 | Добавлено: 05.10.07 11:36 |
ну руки я себе уже вправил, спасибо за намек 
|
||
|
Номер ответа: 17 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #17 | Добавлено: 17.10.07 19:41 |
|
Юзай Vb 9.0:
Dim Root As New DirectoryInfo("
 :\Work\output\sites\"
Dim X = <Sites> <Groups> <%= From Gr _ In Root.GetDirectories _ Select <Group name=<%= Gr.Name %>> <%= From St _ In Gr.GetDirectories _ Select <Site name=<%= St.Name %>/> %> </Group> %> </Groups> </Sites> X.Save("sites.txt" +1 |
||