Prikazi cijelu temu 07.09.2010 04:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Proba koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function DeleteAllFiles(ByVal FolderSpec As String) _
  2. As Boolean
  3.  
  4.  
  5. 'EXAMPLE: DeleteAllFiles "C:\Test"
  6.  
  7. Dim oFs As New FileSystemObject
  8. Dim oFolder As Folder
  9. Dim oFile As File
  10.  
  11.  
  12. If oFs.FolderExists(FolderSpec) Then
  13. Set oFolder = oFs.GetFolder(FolderSpec)
  14. On Error Resume Next
  15. For Each oFile In oFolder.Files
  16. oFile.Delete True 'setting force to true
  17. 'deletes read-only file
  18. Next
  19. DeleteAllFiles = oFolder.Files.Count = 0
  20. End If
  21.  
  22. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 19.10.2010 03:15 od strane zxz.