/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Kontrol og sletning af dir...?
Fra : Søren Larsen


Dato : 03-07-02 17:09

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.
-------




 
 
Stefan McKinnon Edwa~ (05-07-2002)
Kommentar
Fra : Stefan McKinnon Edwa~


Dato : 05-07-02 09:02

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.
> -------
>
>
>



Søren Larsen (11-07-2002)
Kommentar
Fra : Søren Larsen


Dato : 11-07-02 22:06

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.
> > -------
> >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste