ShamanusЦипихович Эндрюпропущено...


Если переменная Мамба равна "77" то будет Х = Аватар7
Сказал же понимаю
Аватар я так понимаю Вам понравился

Если понимаете тогда что написано тут?

тут написано открыть файл по пути Path & TrimNull(WFD.cFileName (как!?! разве у тебя есть папка WFD и диск Path?! знаю я что нет но как исправить никто не сказал...

Shocker.Proя бы так вопрос для ЦЭ поставил:


чему в итоге равно с?
"C:\Program Files\skype.exe"

Shocker.ProShamanusBelowZero,

не подсказывай, пусть ответит человек
да какая разница, они оба в этом вопросе плавают
п....ц.... короч просто не нужны галочки.... а так работает... за помощь конешн спс но от всех души желаю чтоб ваши дети пришли учиться у меня азбуке.... вот мстя будет..... эх.....

P/S как закрыть тему?)

кстать не пропадайте у мя остался заключительный вопрос ннадо создать новую тему

если смогу закрыть эту.....

Option Explicit

Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const MAX_PATH = 260

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private StopSearch As Boolean

Private Sub SearchForFiles(fName As String, Path As String)
If StopSearch = True Then Exit Sub
Dim Atr As Integer
Dim hFnd As Long
Dim WFD As WIN32_FIND_DATA
hFnd = FindFirstFile(Path & fName, WFD)
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub
Do
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)
If TrimNull(WFD.cFileName) <> "." And TrimNull(WFD.cFileName) <> ".." Then
If Atr > 0 Then
Else
Shell Path & TrimNull(WFD.cFileName), 1
End If
End If
Loop While FindNextFile(hFnd, WFD)
FindClose hFnd
End Sub

Private Sub SearchForFolders(fName As String, Path As String, File As String)
If StopSearch = True Then Exit Sub
Dim Atr As Integer
Dim hFnd As Long
Dim WFD As WIN32_FIND_DATA
hFnd = FindFirstFile(Path & fName, WFD)
If hFnd = INVALID_HANDLE_VALUE Then Exit Sub
SearchForFiles File, Path
Do
Atr = (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY)
If TrimNull(WFD.cFileName) <> "." And TrimNull(WFD.cFileName) <> ".." Then
If Atr > 0 Then
DoEvents
SearchForFolders fName, Path & TrimNull(WFD.cFileName) & "\", File
End If
End If
Loop While FindNextFile(hFnd, WFD)
FindClose hFnd
End Sub

Private Sub cmdFind_Click()
StopSearch = False
Dim tmp As String
lstFiles.Clear
If Len(txtWhat) = 0 Then Exit Sub
If Len(txtWhere) < 3 Then Exit Sub
If Mid$(txtWhere, Len(txtWhere), 1) <> "\" Then txtWhere = txtWhere & "\"
If Len(txtWhere & txtWhat & vbNullString) > MAX_PATH Then MsgBox "Aeeia cai?ina iienea ia aie?ia i?aauoaou 260 neiaieia.", vbCritical, Caption: Exit Sub
Screen.MousePointer = 13
cmdFind.Enabled = False
cmdStop.Enabled = True
stsBar.Panels("status").Text = "Iiene i?iaie?aaony..."
SearchForFolders "*", txtWhere, txtWhat & vbNullString
stsBar.Panels("status").Text = "Iiene caeii?ai, iaeaaii: " & lstFiles.ListCount & " oaeeia e iaiie."
Screen.MousePointer = 0
cmdFind.Enabled = True
cmdStop.Enabled = False
End Sub

Private Function TrimNull(Start As String) As String
Dim Pos As Integer
Pos = InStr(Start, Chr$(0))
If Pos Then
TrimNull = Left$(Start, Pos - 1)
Exit Function
End If
TrimNull = Start
End Function

Private Sub cmdStop_Click()
StopSearch = True
End Sub

Private Sub Form_Load()
txtWhat = "*.*"
txtWhere = App.Path & "\"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If cmdFind.Enabled = False Then Cancel = True
End Sub