Cautare fisier

#1
Razvan88

Posted 02 January 2006 - 22:18

New Member

Grup: Members
Posts: 7
Înscris: 23.11.2005

Cum pot verifica daca un fisier exista intr-un director cunoscut ? De ex: Fishierul a.exe vreau sa il caut in "C:\Windows" .

Back to top

#2
RAZ

Posted 04 January 2006 - 10:51

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

Private Sub Form_Load()
   If FileExists("C:\Windows\a.exe") Then
	  MsgBox "file found"
   Else
	  MsgBox "file not found"
   End If
End Sub



Private Function FileExists(fullpath As String) As Boolean
 'cand fisierul nu exista vb sare cu erroare;)
 On Error GoTo ff	  
   If GetAttr(fullpath) Then
	 FileExists = True	 ' file exists
   Else
ff:
	FileExists = False	'file not found
   End If

End Function

Mai poti face cu API (FindFirstFile):

 wfd as WIN32_FIND_DATA
 hFind as long
		 hFind = FindFirstFile(fullpath, wfd)
		if  hFind == -1)
				FileExists =false
		else
				FindClose hFind 
				FileExists =true
	   end if

bafta!

Back to top

#3
Razvan88

Posted 06 January 2006 - 23:27

New Member

Grup: Members
Posts: 7
Înscris: 23.11.2005

Mersi mult !

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

Cautare fisier

#1 Razvan88 Posted 02 January 2006 - 22:18

#2 RAZ Posted 04 January 2006 - 10:51

#3 Razvan88 Posted 06 January 2006 - 23:27

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Razvan88

Posted 02 January 2006 - 22:18

#2
RAZ

Posted 04 January 2006 - 10:51

#3
Razvan88

Posted 06 January 2006 - 23:27