Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Opis anonim Typ: Nie zarejestrowany Opis Potrzebuje wiedzieć jaki¶ opis jak to działa i co z ty robić FindFirstFile FindNextFile FindClose 14-01-2004 14:14 Sen Typ: neutral Postów: 20 Zarejestrowany: Jan 2004 Na stronie vbtools znajdziesz plik pomocy z polskimi opisami funkcj API. Chyba taki link. 14-01-2004 14:52 Jelcyn Admin forum Typ: admin Postów: 895 Zarejestrowany: Apr 2002 w VBFAQ (zobacz na VB4all dział miniFTP) był przykład jak te funkcje wykorzystać _____________________________________________ Jelcyn vb4all(małpka)canpol.pl * 16-01-2004 22:20 270849979 6237704 busio busio Typ: neutral Postów: 98 Zarejestrowany: Sep 2002 Public 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 * 260 cAlternate As String * 14 End Type Witam private sub ble() Dim d As WIN32_FIND_DATA long b string odczyt string nazwa string szukaj$ string tmp string j long X long Y szukaj$ = odczyt & "\plik*.txt" + Chr(0) X = FindFirstFile(szukaj$, d) If X = -1 Then msgbox "brak pliku" else Do j = InStr(d.cFileName, Chr(0)) tmp = Left(d.cFileName, j) nazwa = odczyt & "\" & tmp Y = DeleteFile(nazwa) If Y <> 1 Then MsgBox "Problem z usunięciem pliku " & endif b = FindNextFile(X, d) Loop While b endif X = FindClose(X) end sub mam nadzieje iż to ci pomoże Pozdrawiam busio 18-01-2004 21:27 Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |