вопрос думаю для многих важный и хоть кто-то обязан знать: мне нужно найти(провести поиск во всех папках и дисках) файл Skype.exe и затем запустить его. принцип:при запуске прога в невидимом режиме находит файлы с таким именем и сама запускает первый попавшийся файл. заранее спс

Это надо в VB6 и чисто код чтоб открыть скайп в какой бы папке он не был. а что и зачем мне открывать пожалуйста оставьте решать мне. ведь вещь элементарная но я новичок а вы по-любому это знаете. ещё раз заранее спс

Ципихович ЭндрюBelowZero, а если этого файла вообще нет на компе, тогда что??
Выполнить, будет Shell, далее адрес и файл
Shell "C:\Program Files\skype.exe
почитай плиз что я писал... я знаю как открыть файл. но у разных людей скайп(Skype.exe) находится в разных местах

ShamanusBelowZeroвопрос думаю для многих важный и хоть кто-то обязан знать: мне нужно найти(провести поиск во всех папках и дисках) файл Skype.exe и затем запустить его. принцип:при запуске прога в невидимом режиме находит файлы с таким именем и сама запускает первый попавшийся файл. заранее спс

в цикле перебираешь каталоги и папки с глубинным погружением (используй рекурсию) и сверяешь имя файла с маской. Пихаешь в коллекцию.

Потом "шелиш"ь коллекцию.Вуаля.
Пожалуйста.
То что нужно! можешь написать код? он вроде не длинный. плз

вот код длинный но работающий
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
lstFiles.AddItem "[" & Path & TrimNull(WFD.cFileName) & "]"
Else
lstFiles.AddItem Path & TrimNull(WFD.cFileName)
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 "Äëèíà çàïðîñà ïîèñêà íå äîëæíà ïðåâûøàòü 260 ñèìâîëîâ.", vbCritical, Caption: Exit Sub
Screen.MousePointer = 13
cmdFind.Enabled = False
cmdStop.Enabled = True
stsBar.Panels("status").Text = "Ïîèñê ïðîäîëæàåòñÿ..."
SearchForFolders "*", txtWhere, txtWhat & vbNullString
stsBar.Panels("status").Text = "Ïîèñê çàêîí÷åí, íàéäåíî: " & lstFiles.ListCount & " ôàéëîâ è ïàïîê."
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()
txtWhere = App.Path & "\"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If cmdFind.Enabled = False Then Cancel = True
End Sub
найденные(ый) файлы скайп аккуратно записываются в листбокс... а как тогда его открыть?О_о

Shamanus,

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

так вместо того, чтобы добавлять их в листбокс, надо shell-ом запустить первый найденный файл и все
Как?)
я знаю как провести рекурсивный поиск знаю как открывают файл... а как совместить?) ((знаю нублю но все когда-то с чего-то начинали))

ShamanusBelowZero,

а мне кажется в твоем коде твоего нет. Нашел пример в интернете и себе его приписываешь.
Если я неправ объясни мне зачем нужна функция TrimNull?
да я просто нашёл в инете готовый код в котором много лишнего и ненужного но он хотя б работает... если б я сам мог написать я б не спрашивал советов...

Shamanus ты столько исписал предложениями купить код и проверками моего знания VB6 сколько хватило бы на 3 нужных мне кода... не проще просто помочь новичку?)