| Вопрос: Строки и пара вопросов... | Добавлено: 22.01.07 13:27 |
Автор вопроса:  SS
|
|
Здравствуйте!
Помогите пожалуйста.(Вопросы по VB6) 1) Как открыть папку в новом окне? 2)Есть файл текст.тхт в нем строка: max_size "222" Как поменять значение ковычках на 122? Но при этом проверить есть такая строка или нет, если её нет то создать, если есть заменить только значение в ковычках? Большое спасибо! |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Djon Вопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #1 | Добавлено: 22.01.07 13:35 |
|
Shell "explorer.exe " & App.Path & "\Папка"
|
||
|
Номер ответа: 2 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #2 | Добавлено: 22.01.07 13:44 |
|
Извеняюсь за повторы.
Dim fso As New FileSystemObject
Dim fil1 As File Dim txt As TextStream Set fil1 = fso.GetFile("Текст.txt" 
Set txt = fil1.OpenAsTextStream(ForReading) Text1 = txt.ReadAll txt.Close if text1=("max_size " & "222" then
text1=max_size "122" else text1=max_size "222" end if FileName = "Текст" & ".txt" Open FileName For Output As #1 Print #1, Text1.Text Close #1 |
||
|
Номер ответа: 3 Автор ответа: SS Вопросов: 2 Ответов: 4 |
Профиль | | #3 | Добавлено: 22.01.07 13:52 |
|
Djon
Спасибо большое! |
||
|
Номер ответа: 4 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #4 | Добавлено: 22.01.07 13:52 |
2Djon: Так-то интересней 
по первому вопросу(если я его правильно понял): Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1 Private Sub Command1_Click() ShellExecute Me.hwnd, vbNullString, "c:\temp", vbNullString, "C:\", SW_SHOWNORMAL End Sub |
||
|
Номер ответа: 5 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #5 | Добавлено: 22.01.07 14:05 |
| точняк | ||
|
Номер ответа: 6 Автор ответа: SSВопросов: 2 Ответов: 4 |
Профиль | | #6 | Добавлено: 22.01.07 14:59 |
|
Блин.. ещё вопросик
Как отсканировать папки в дир: App.path и названия папок добавить в Листбокс? А можно как нидь привизать dll к .exe То есть что бы не кидать dll в папку system32? Спасибо! |
||
|
Номер ответа: 7 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #7 | Добавлено: 22.01.07 15:22 |
|
Кинь на форму
1) DirListBox назови dirFolders 2) FileListBox назови filFiles 3) TextBox назови txtNameFile 4) DriveListBox назови drvSelectDrive Dim NewFSO As New FileSystemObject, Folder As Folder
Dim sNameFolder As String Dim sNameFile As String Dim File Dim j Private Sub Command6_Click() For j = 0 To Val(filFiles.ListCount) - 1 filFiles.ListIndex = j txtNameFile = filFiles.FileName List1.List(j) = txtNameFile.Text Next j End Sub Private Sub drvSelectDrive_Change() dirFolders.Path = drvSelectDrive.Drive End Sub Private Sub dirFolders_Change() filFiles.Path = dirFolders.Path End Sub |
||
|
Номер ответа: 8 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #8 | Добавлено: 22.01.07 15:23 |
| Забыл самое главное на форму кинь ListBox Назови List1. | ||
Страница: 1 |