Нужна программа по сл. параметрам-
1.Ищет по имени и размеру файла.
2.Ищет файлы формата MP3,WAV,AIF,AIFF,SD2.
3.Должна содержать плеер(конечно, музыкальный самый простой)
4.Должна копировать,вырезать,удалять и тд..(ФАЙЛЫ ЦЕЛИКОМ)
5.Должна также искать ТОЛЬКО по размеру и ТОЛЬКО по имени
6.Программа ищет, но не находит(исправьте пожалст)
7.Должна искать также по части имени (F в Fox)
О цене договоримся. В ЛС.

Код:
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
  #Window_1
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Text_1
  #String_0
  #String_1
  #Button_0
  
  #ListIcon_Files
  #Text_Files
EndEnumeration

Procedure Direct(Directory.s, SearchFileName.s) 
  If Right(Directory.s,1)<>"\":Directory.s + "\":EndIf 
  z=ExamineDirectory(#PB_Any, Directory.s, "*.*")  
  If z 
    While NextDirectoryEntry(z) 
      EntryName.s=DirectoryEntryName(z) 
      ;------------------------------------------ 
      If EntryName = "." Or EntryName = ".." 
        Continue 
      EndIf 
      ;------------------------------------------ 
      Type=DirectoryEntryType(z) 
      If Type = #PB_DirectoryEntry_Directory 
        Direct(Directory.s+EntryName, SearchFileName)  
      ElseIf Type = #PB_DirectoryEntry_File 
        ;-------------------------------------------      
        FileName.s= Directory.s+EntryName  
        If LCase(EntryName) = SearchFileName
          AddGadgetItem(#ListIcon_Files, -1, FileName)
        EndIf
        SetGadgetText(#Text_Files, FileName)
      EndIf 
    Wend 
    FinishDirectory(z) 
  EndIf 
EndProcedure

Procedure StartSearchFile(*x)
  Direct("C:\", LCase(GetGadgetText(#String_0))) 
EndProcedure

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 405, 361, 258, 67, "Поиск файлов",  #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 5, 15, 85, 15, "Имя файла:")
      TextGadget(#Text_1, 5, 40, 85, 15, "Размер файла:")
      StringGadget(#String_0, 95, 10, 155, 20, "")
      StringGadget(#String_1, 95, 35, 50, 20, "", #PB_String_Numeric)
      ButtonGadget(#Button_0, 165, 35, 85, 24, "Искать")
    EndIf
  EndIf
EndProcedure



Open_Window_0()

Repeat
  Event = WaitWindowEvent()
  
  If Event = #PB_Event_Gadget
    If EventGadget() = #Button_0
      If GetGadgetText(#String_0)<>""
      OpenWindow(#Window_1, 0, 0, 500,400,"Найденные файлы", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
      ListIconGadget(#ListIcon_Files, 2, 2, 496, 350, "Файлы", 470, #PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
      TextGadget(#Text_Files, 2,360,496, 48, "")
      HideWindow(#Window_0, 1)
      CreateThread(@StartSearchFile(), 0)
    Else
      MessageRequester("", "Заполните поля")
      EndIf
    EndIf
  EndIf
  
Until Event = #PB_Event_CloseWindow

Отредактировано СкучныйПоц (16.08.2011 12:06:20)