Søg efter *.xxx

Hmm kan man det ..  *. så napper den da alt.. men der må da være noget not eller if..

Har funde et script der kan næste det jeg søger.

http://www.mvps.org/vbnet/index.html?code/fileapi/recursivefiles_minimal_multiple.htm

Prøv her: www.eksperten.dk/kat/297/

Hvis du ikk emener script, men at du bare vil lave et almindeligt VB6-program, der sletter de filer du beskriver, kan jeg godt give dig et eksempel:

Du kan f.eks. bruge FSO (File Scripting Object)

1) Nyt Project
2) Project > References > MicroSoft Scripting Runtime
3) Kode:

Dim FSO As FileSystemObject
Dim MyFolder As Folder
Dim MyFile As File

Set FSO = New FileSystemObject
Set MyFolder = FSO.GetFolder("C:\")

For Each MyFile In MyFolder.Files
  If right(MyFile.Name,4) = ".lic" Then
    If left((MyFile.Name,4) <> "ok.lic" Then
      MyFile.Delete 'Kan ikke huske om .Delete virker - ellers Kill myfile.name
    End If
  End if
Next

Set MyFolder = Nothing
Set FSO = Nothing

Vil du søge alle undermapper igennem, kan du også gøre det, smartes ved en rekursiv procedure. Interesseret i det?

Sorry - ret
  If left((MyFile.Name,4) <> "ok.lic" Then
til
  If MyFile.Name <> "ok.lic" Then

Jeg kan ikke få dit script til at virke.

som det skal

Det er ikke et script!

Kan du blive enig med dig selv om du taler om VBScript eller om Visual Basic 6?

Jeg taler kun om Visual Basic 6, jeg har fåde det til at virke dog ikke helt som jeg ønsker. mit problem er at den ikke gå i undermapper.

Jeg citerer lige mig selv: "Vil du søge alle undermapper igennem, kan du også gøre det, smartes ved en rekursiv procedure. Interesseret i det?"

Her kan du se hvordan: www.eksperten.dk/spm/265166 :o)

NB: Husk, at script ikke er det samme som VB6 - script er noget der typisk bliver afviklet på en server, og bliver kompileret hver gang. Et VB-program bliver kompileret en gang, og virker derefter uden kompilering (en .exe-fil) - så det er altså to helt forskellige ting :o)