Strona: [  << <   1   > >>  ]  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.
http://www.vbtools.atelier.pl/r_tekst.php?id=1
Chyba taki link.

14-01-2004 14:52
Pokaż profil Sen  Wyślij email do Sen   
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
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

16-01-2004 22:20
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       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
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1