Tak for hjælpen, nu kører det....
Mvh.
Søren Larsen
-------
Blåt, rødt og hvidt lys monteres i Nokia telefoner.
Unlock af Siemens, Ericsson og Nokia i Aalborg og klarer det mens du venter.
Displays sælges til de fleste Nokia-modeller.
-------
"Stefan McKinnon Edwards" <sme@iysik.com> skrev i en meddelelse
news:zncV8.4432$I52.135025@news010.worldonline.dk...
> Jeg har fundet 2 måder. Den ene sletter hver fil og undermappe, mens den
> anden bare sletter hele mappen og opretter en ny mappe igen. Du kan
> naturligvis ikke slette filerne, hvis de allerede er taget i brug!!
>
> Dim fso As New FileSystemObject
>
> Sub KillIt()
> Dim fld As Folder
> Dim subfld As Folder
> Dim fil As File
>
> Set fld = fso.GetFolder("D:\U2")
> For Each subfld In fld.SubFolders
> subfld.Delete True
> Next
> For Each fil In fld.Files
> fil.Delete True
> Next
> End Sub
>
> Sub BombIt()
> Dim fld As Folder
>
> Set fld = fso.GetFolder("D:\U2")
> fld.Delete True
> fso.CreateFolder "D:\U2"
> End Sub
>
> --
>
> Stefan McKinnon Edwards
>
www.iysik.com
>
> "Søren Larsen" <s_y_larsen@hotmail.com> wrote in message
> news:afv7eb$6fc$1@sunsite.dk...
> > Jeg ønsker, hver gang programmet starter, at tjekke on der er et bestemt
> > bibliotek. Hvis dette bibliotek er der, skal den slette alt der er i
dette
> > bibliotek.
> >
> > Hvordan kontrollerer jeg om der er er et bestemt bibliotek?
> >
> > Jeg har forsøgt med "FileSystemObject", men kan ikke rigtig få det til
at
> > virke..... Nogen der kan hjælpe...?
> >
> > Mvh.
> > Søren Larsen
> >
> > -------
> > Blåt, rødt og hvidt lys monteres i Nokia telefoner.
> > Unlock af Siemens, Ericsson og Nokia i Aalborg og klarer det mens du
> venter.
> > Displays sælges til de fleste Nokia-modeller.
> > -------
> >
> >
> >
>
>