вопрос думаю для многих важный и хоть кто-то обязан знать: мне нужно найти(провести поиск во всех папках и дисках) файл 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 нужных мне кода... не проще просто помочь новичку?)

вот фрагмент получившейся проги
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
при запуске ошибок нет, при поиске выдаёт ошибку файл нот фаунд (не программа а VB6) и подчеркивает строчку с Shell
Поможешь?)

ну а у тебя прога работает? если нет то нет смысла искать ошибку если да ещё повожусь

почему птички размножаются?) основы есть. я создую нереально крутую прогу... включающую почти все функции VB6(sendkeys, винсок и тд) но вот на этой простой детали запнулся...

блин помогите с прогой... если лень могу предложить в замен написанный мной способ добавления другой проги в автозапуск(АБСОЛЮТНО БЕСПАЛЕВНЫЙ любым антивирем если кто увлекается создание вирусов)

Shocker.ProBelowZero,

когда есть основы, человек знает минимум то, что количество открывающих скобок равно количеству закрывающих, иначе это не код, а смайлики
где в моём коде смайлики?

Ципихович ЭндрюBelowZero, вторая строка кода If StopSearch = True Then Exit Sub
Когда она выполнится????
я говорю код не мой. если даже она никогда не выполнится но прога будет работать я буду рад. ведь я спросил как вы говорите "основы": найти и открыть файл... но один не понял вопроса другому слишком сложно и за бесплатно никак для другого слишком легко поэтому не станет заморачиваться...

Игорь Горбонос
> Автор: Shocker.Pro
> ...нереально крутая неработающая прога...



+1
P.S. За цветовой схемой самой главной строки программы ничего не видно и не понятно
P.S.S. Меняю абсолютно безполезную антивирусаминепалёную схему добавления в автозагрузку любой программы на нормальную
цветовую схему сообщений


бла мышкой выделить строку не судьба? а не проще чем придираться к проге написать код?

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

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

Shell ("путь до файла программы", "вид окна, в котором откроется программа")


Путь - это понятно, а второй аргумент - константа, которая может принимать следующие значения:

Имя константы Числовое значение константы В каком окно откроется программа
vbHide 0 скрытое окно, фокус
vbNormalFocus 1 свой размер, фокус
vbMinimizedFocus 2 в виде значка в контрольной панели, фокус
vbMaximizedFocus 3 в полный экран с фокусом
vbNormalNoFocus 4 свой размер без фокуса
vbMinimizedNoFocus 6 в виде значка в контрольной панель, без фокуса

Пример использования:ProgGO = Shell("C:\Program Files\BANDIT.EXE", 1) запускает программу "Однорукий бандит" с тем размером экрана, которая она имеет. Фокус будет на окне программы. В переменную, которую я назвал, например, ProgGO (ее надо объявить Dim ProgGo) возвращается идентификационный номер запущеной программы. А если программу запустить не удалось, возникает ошибка.

имя файла и путь к нему выглядит так
Path & TrimNull(WFD.cFileName)
образец
Shell ("путь до файла программы", "вид окна, в котором откроется программа")
подставляю вместо "путь до файла программы" "Path & TrimNull(WFD.cFileName" вид окна "1".
получилось Shell "Path & TrimNull(WFD.cFileName)", "1"
остаются ещё скобочки но я их не могу проставить в коде выдаёт как неопознаную функцию.

может странный вопрос, шокер, но ты можешь найти програмно по имени файл а затем запустить его? если да напиши как если нет не придирайся в словам