Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: usuwanie pliku do kosza
G0TTI




Typ: neutral
Postów: 4
Zarejestrowany: Jan 2005
usuwanie pliku do kosza

mam pytanie: jak usunąć plik do kosza, (polecenie kill kasuje go fizycznie)??

11-01-2005 17:56
Pokaż profil G0TTI  Wyślij email do G0TTI   
losmac
"profesorek"




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

Kill rzeczywiście kasuje z pominięciem kosza.

A to znalazłem na sieci. Mam nadzieję, że o to chodziło i że wyrzuca pliki do kosza.

W poniższym przykładzie wyrzuca pliki z określonego katalogu, które są starsze niż 60 dni.

Dim File, Folder, FileCollection
Dim fso As New FileSystemObject

Set Folder = fso.GetFolder("C:\files"
Set FileCollection = Folder.Files

For Each File In FileCollection

    If DateDiff("d", FileDateTime(File), Now) >= 60 Then
        fso.DeleteFile (File)
    End If
Next



_____________________________________________
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ś

12-01-2005 20:47
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
G0TTI




Typ: neutral
Postów: 4
Zarejestrowany: Jan 2005

co to jest DeleteFile - funkcja Api??
Jeżeli tak to jak ją włączyć?

12-01-2005 23:34
Pokaż profil G0TTI  Wyślij email do G0TTI   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Nie, .DeleteFile to metoda obiektu klasy Scripting.FileSystemObject
Wszystko co jest potrzebne losmac już napisał.

[Post edytowany dnia 13-01-2005 08:55 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

13-01-2005 08:55
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
G0TTI




Typ: neutral
Postów: 4
Zarejestrowany: Jan 2005

podczas kompilacji przy
Dim fso As New FileSystemObject
wyskakuje błąd: "User-defined type not defined"
o co chodzi?

13-01-2005 21:56
Pokaż profil G0TTI  Wyślij email do G0TTI   
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Właśnie teraz zauważyłem... losmac użył innej formy, niż ja zwykle używam .
Dodaj w referenchach "Microsoft Scripting Runtime" (plik SCRRUN.DLL) i powinno już działać.
Ja zwykle robię to bez referencji i dlatego nie zauważyłem


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

14-01-2005 08:01
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
G0TTI




Typ: neutral
Postów: 4
Zarejestrowany: Jan 2005

Dzięki. Podam jeszcze linka dla zainteresowanych:
program wykorzystujący ShellDeleteFile
http://www.vbtools.atelier.pl/daj.php?plik=118

14-01-2005 20:50
Pokaż profil G0TTI  Wyślij email do G0TTI   
anonim




Typ: Nie zarejestrowany


Właśnie teraz zauważyłem... losmac użył innej formy, niż ja zwykle używam .
Dodaj w referenchach "Microsoft Scripting Runtime" (plik SCRRUN.DLL) i powinno już działać.
Ja zwykle robię to bez referencji i dlatego nie zauważyłem


Nie rozumiem, moze ktoś wyjaśnić o jakie referencje chodzi?

04-04-2005 11:51
  
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Użyj funkcji SHFileOperation


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

04-04-2005 11:55
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1