FilesAndFolders

[Max!]

Сижу чёто пишу в VB , 3:50 ночи , туплю по полной и вот вопросс родился:
В Text1.Text указываю например "C:\" и прога раскладывает:
1)Фаилы в Text2.Text
2)Папки в Text3.Tetx
Как это реализовать !

[tyomitch]

Код: Выделить всё

Dim s As String
s = Dir(Text1.Text & "\", 31)
While Len(s)
    If (GetAttr(Text1.Text & "\" & s) And vbDirectory) Then
        Text3.Text = Text3.Text & s & vbCrLf
    Else
        Text2.Text = Text2.Text & s & vbCrLf
    End If
    s = Dir
Wend


[Max!]

Вот ещё родил мысль , есть Form1 она развёрнута на весь экран есть Form2 , так вот когда мы нажимаем на Form1 то оно становится октивным
а Form2 прячется под него , вот как сделать чтоб Form2 непрятался под Form1 а был постоянно над Form1 (Это только на формы , так как вообще сделать окно проги поверх вообще всех остальных я знаю ) Надо только между моими формами !!! Help

[FaKk2]

Код: Выделить всё

Form2.Show vbModal

[tyomitch]

Код: Выделить всё

Form2.Show vbModal

Как раз наоборот -

Код: Выделить всё

Form2.Show vbModeless, Form1

Соль здесь в том, что надо обязательно указать хозяина формы (в танном случае Form1)

[Max!]

tyomitch Огромное тибе спосибо , ты представить сибе не можешь как я тибя уважаю

[Max!]

Кроме стандартной команды Shell , есть ли аипишка чтоб файлы .TXT запускать ? (К примеру)

[A.A.Z.]

"аипишка" - ShellExecutable

[Max!]

Подробнее апиши как обявлять ShellExecutable

[Max!]

Тук тук есть кто на сайте ?

[FaKk2]

tyomitch, Ne tak ponyal

[tyomitch]

Пример с ShellExecute:

Код: Выделить всё

Option Explicit

Private Declare Function ShellExecute Lib "shell32" 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

Sub Main()
ShellExecute 0, "edit", "c:\autoexec.bat", vbNullString, vbNullString, vbNormalFocus
End Sub


Стандартные действия над файлами - "open", "edit", "print", но могут быть объявлены и другие. "open" гарантированно есть у всех файлов, у которых есть ассоциированое приложение.