Søg
Avatar billede jih Nybegynder
12. september 2003 - 19:29 Der er 18 kommentarer og
2 løsninger

slet flere filer

hey.. jeg har denne kode:

---

'...flere Sub's før her...

Private Sub CmdDelFile_Click()
file = File1.Path & "\" & File1.FileName
Kill (file)
File1.Refresh
End Sub

Private Sub File1_DblClick()
file = File1.Path & "\" & File1.FileName
Kill (file)
File1.Refresh
End Sub

'...flere Sub's før her...

---

mit problem er.... jeg skal lave det sådan at jeg kan slette filer fra en liste.... ved tryk af knap (hvis det er flere filer) og dobbelt klik (for hurtig og enkelt slet).... jeg har listboxen som "MultiSelect = 2", og det virker fint... men når jeg så trykker slet, sletter den kun én fil.... hvordan er det lige man gør for at slette alle de markerede filer på en gang?

//WebPsycho
Avatar billede Slettet bruger
12. september 2003 - 19:41 #1
Du skal løbe listboxen igennem og finde ud af hvad der er markeret og så slette.
Avatar billede jih Nybegynder
12. september 2003 - 19:42 #2
ja, det ved jeg... men spørgsmålet er hvordan jeg gør det...
Avatar billede driis Nybegynder
12. september 2003 - 19:42 #3
Sådan her:

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To File1.ListCount - 1
    If File1.Selected(i) Then
        Kill (File1.Path + File1.List(i))
    End If
Next


End Sub
Avatar billede driis Nybegynder
12. september 2003 - 19:44 #4
Og evt. en
File1.Refresh
Så brugeren kan se at filerne er væk ;-)
Avatar billede jih Nybegynder
12. september 2003 - 19:48 #5
hmmm... det virker ik.... og den refresh havde jeg i forvejen!-) ^^ ved du hvordan jeg gør? når jeg trykker debug, kommer en gul linie på:

"Kill (File1.Path + File1.List(i))"
  lavede den om til: "Kill (File1.Path & "\" & File1.List(i))"

så kom der en fejl på linien:

"If File1.Selected(i) Then"

HuH? =/
Avatar billede jih Nybegynder
12. september 2003 - 19:50 #6
hahaha... pis altså... skal lige se.... har nemlig ik skrevet mine egne navne ind ;)
Avatar billede Slettet bruger
12. september 2003 - 19:51 #7
Prøv If File1.ListIndex(i).Selected Then
Avatar billede jih Nybegynder
12. september 2003 - 19:53 #8
nå.. det havde jeg alligevel... pis... nå.. men... det der
"If File1.ListIndex(i).Selected Then"
virker heller ik :(
Avatar billede martin_moth Mester
12. september 2003 - 19:53 #9
fejlmeddelse?
Avatar billede martin_moth Mester
12. september 2003 - 19:54 #10
vis lige din kode, og sig hvilken fejl der opstår hvor...
Avatar billede jih Nybegynder
12. september 2003 - 19:55 #11
hmmm..... ka sq ik lige oversætte det... det er tysk...

"Fehler beim Kompilieren:"

"Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft" ;-)
Avatar billede jih Nybegynder
12. september 2003 - 19:55 #12
har lige vist hvor min fejl opstår... hvis du kigger op...
Avatar billede Slettet bruger
12. september 2003 - 19:56 #13
Et skud mere:
If File1.Items(i).Selected Then
Avatar billede jih Nybegynder
12. september 2003 - 19:57 #14
oversat på google:

"errors when compiling:"

"wrong number of arguments or invalid assignment to a characteristic"
Avatar billede jih Nybegynder
12. september 2003 - 19:57 #15
driis -> det virker ik :(
Avatar billede martin_moth Mester
12. september 2003 - 20:06 #16
Forudsat at det er en almindelig FileListBox du har, og vi taler om Visual Basic 6, virker det her altså:

  Dim i As Integer
  For i = 0 To File1.ListCount - 1
    If File1.Selected(i) = True Then
      Kill (File1.Path & "\" & File1.List(i))
    End If
  Next
  File1.Refresh

Ingen problemer på min PC!

Har du en version af VB6 på TYSK??? Det er en kæmpe hjælp at læse de fejlmeddelser VB giver, så se at få lært tysk eller få en engelsk version :o)
Avatar billede jih Nybegynder
12. september 2003 - 20:08 #17
ej hvor fedt.... det virker (martin).... :D smider du lige et svar, så deler vi pointsene... (martin 10 og driis 5)?
Avatar billede martin_moth Mester
12. september 2003 - 20:09 #18
Det er intet nyt i mit svar, som ikke allerede var sagt. Du må selv have copy/pastet forkert...
Avatar billede jih Nybegynder
12. september 2003 - 20:11 #19
hmm.... ka jeg faktisk godt se... ok... deler dem lige over så.... eftersom det var efter din løsning det virkede ;)  - lukker

//WebPsycho
Avatar billede martin_moth Mester
12. september 2003 - 20:12 #20
Skaf dig en version hvor du forstår sproget - det er nødvendigt at kunne læse og forstå fejlmeddelserne for at kunne finde fejl
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
16/1016:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
16/1016:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
16/1013:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
11/1013:35 Bruger på Win11 Af lurup i Browsere
White papers
Flere white papers »