Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: zabawa z plikami
anonim




Typ: Nie zarejestrowany
zabawa z plikami

Mam pytanie ??
Jak sprawdzić czy dany plik istnieje ??
Chodzi mi o to że program sprawdza czy plik istnieje , jesli tak to wczytuje.
Jesli można to prosił bym o przykładowy kod .

21-10-2004 17:48
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Sub Test()
const stmp As String = "C:\autoexec.bat"
    MsgBox "Plik '" & stmp & "' istnieje w podanej loakalizacji: " & FileExists(stmp), vbInformation, "Komunikat"
End Sub

Function FileExists(sFileName As String) As Boolean
    FileExists=Iif(Dir(sFileName)<>"",True, False)
End Function



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

21-10-2004 18:27
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
deywid



Typ: neutral
Postów: 66
Zarejestrowany: Jan 2004

albo tak:
p gdy plik ,k gdy katalog(zmienna znak)
=================
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
  Private Declare Function GetFileAttributes Lib "kernel32" Alias _
  "GetFileAttributesA" (ByVal lpFileName As String) As Long

Public Function jest(sciezka As String, znak As String) As Boolean
Dim lRet As Long, strName As String
If znak = "p" Then
strFileName = sciezka
lRet = GetFileAttributes(strFileName)
If lRet = -1 Then
jest = False
Else
jest = True
End If
End If
If znak = "k" Then
strFileName = sciezka
lRet = GetFileAttributes(strFileName)
If (lRet = -1 And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
jest = False
Else
jest = True
End If
End If
End Function
========================
funkcja zwraca wartosc False gdy pliku(katalogu) nie ma... True gdy jest.
pozdro

[Post edytowany dnia 23-10-2004 18:57 przez deywid]

23-10-2004 18:55
Pokaż profil deywid  Wyślij email do deywid        5625009
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1