• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Met een excellijst de functie zoeken gebruiken van verkenner?

Status
Niet open voor verdere reacties.
T

Tanja1985

Gebruiker
Lid geworden
6 mei 2011
Berichten
10
Ik zit op mijn werk met een probleem dat onze ftp server geheel opgeschoond moet worden. Nu staat daar inderdaad ook ontzettend veel beeldmateriaal op wat er niet op hoort. Ik heb al een snelle soort van script via ons offline catalogussysteem gedraaid.

Hieruit is een totale lijst naar voren gekomen met alle bestanden die wel op het systeem staan maar eigenlijk verwijderd kunnen worden. ik heb een kolomnamen ingedeeld, het is puur alleen de bestandsnaam in 1 kolom en meerdere regels. vb.:

bestandsnaam.JPG
bestandsnaam.JPG
bestandsnaam.JPG

Ik kan deze nu wel 1 voor 1 handmatig opzoeken, maar is het ook mogelijk om dit geautomatiseerd te doen? Ik beschik hier over zowel een mac met openoffice als een extern bureaublad draaiende op Windows met excel.

Het is dus de bedoeling dat ik de hele lijst in een keer in verkenner kan tonen en de keuze krijg ze te verplaatsen of verwijderen.

Ik hoop dat iemand met een oplossing hiervoor komt.

Alvast heel erg bedankt!

Groeten Tanja
 
Staan alle bestanden in 1 directory?
Je hebt het over de mogelijkheid om bestanden te verplaatsen of verwijderen.
Betekent dat er toch bestanden verplaatst moeten worden want ik had begrepen dat ze juist allen verwijderd moeten worden?

Met vriendelijke groet,


Roncancio
 
Verwijderen of verplaatsen, maakt niet zoveel uit. Als ze maar weg zijn uit de directory waar ze nu staan. Ze staan inderdaad in 1 map/directory ja.

Roncancio zei:
Staan alle bestanden in 1 directory?
Je hebt het over de mogelijkheid om bestanden te verplaatsen of verwijderen.
Betekent dat er toch bestanden verplaatst moeten worden want ik had begrepen dat ze juist allen verwijderd moeten worden?

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Code: 
Sub Verwijderen()
Dim lRij As Long
    lRij = 1
    On error resume next
    While Range("A" & lRij).Value <> ""
        Kill "[B][COLOR="red"]C:[/COLOR][/B]\" & Range("A" & lRij).Value
        lRij = lRij + 1
    Wend
End Sub

Zet in het rode gedeelte de juiste directory.

Met vriendelijke groet,


Roncancio
 
Sorry, maar mag je me nog een keer helpen. Van scripts heb ik geen verstand.
Waar voer ik dit in?

Roncancio zei:
Code: 
Sub Verwijderen()
Dim lRij As Long
    lRij = 1
    On error resume next
    While Range("A" & lRij).Value <> ""
        Kill "[B][COLOR="red"]C:[/COLOR][/B]\" & Range("A" & lRij).Value
        lRij = lRij + 1
    Wend
End Sub

Zet in het rode gedeelte de juiste directory.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Via ALT-F11 kom je in de VBE.
Vervolgens kies je voor Invoegen - Module.
Daar plak je de code in.
Vervolgens start je de macro.

Met vriendelijke groet,


Roncancio
 
Werkt helaas niet.

Helaas verwijderd de macro niet alle bestanden, heb alles gedaan wat je me aangegeven hebt alleen zie ik alle bestanden nog wel in mijn map staan.

Moet ik voordat ik de macro start soms nog iets opslaan of iets dergelijks. Als ik de macro nu start is tie wel heel erg snel klaar terwijl er eigenlijk aardig wat bestanden doorzocht moeten worden.

Ik hoop dat je nog wat voor me kunt betekenen.

Alvast bedankt!

Gr. Tanja

Roncancio zei:
Via ALT-F11 kom je in de VBE.
Vervolgens kies je voor Invoegen - Module.
Daar plak je de code in.
Vervolgens start je de macro.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Staat de lijst van de bestanden in de A-kolom?
Verwijder On Error Resume Next en stap (dmv F8) stap voor stap door de macro).
Dus steeds op F8 klikken, maar de macro niet starten.
Ik heb namelijk heel sterk het vermoeden dat de bestanden niet gevonden worden.
Als het goed is, krijg je daarvan een melding.

Met vriendelijke groet,


Roncancio
 
Hmm.. Ze staan wel in kolom a, daar heb ik nog op gelet.

Ik heb nu on error resume weg gehaald. en inderdaad, er verschijnt een foutmelding:

Fout 53 Kan het bestand niet vinden. Heel gek, terwijl het bestand er wel moet zijn.
Daarna gaat het niet verder.

Dit is overigens de rij Kill ( "C:\Users\tanja\Picture" & Range("A" & lRij).Value )

Roncancio zei:
Staat de lijst van de bestanden in de A-kolom?
Verwijder On Error Resume Next en stap (dmv F8) stap voor stap door de macro).
Dus steeds op F8 klikken, maar de macro niet starten.
Ik heb namelijk heel sterk het vermoeden dat de bestanden niet gevonden worden.
Als het goed is, krijg je daarvan een melding.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Laatst bewerkt:
Ga met Windows Verkenner naar het betreffende directory, kopieer het gehele pad en plak het in de code (in het rode gedeelte).
Het beste om weer met F8 door de code te lopen zodat je niet steeds een melding krijg door de lus.

Met vriendelijke groet,


Roncancio
 
Hmm.. dit heb ik gedaan... Ik begin stil te vermoeden dat het door het externe bureaublad komt.. moet ik de tekst niet omzetten in een bepaald formaat of iets dergelijks.

Ik heb wat schermafdrukken toegevoegd, misschien komt dan wat gestuntel naar boven.. :confused:
  • Schermafbeelding 2011-05-06 om 14.00.47.png
  • Schermafbeelding 2011-05-06 om 13.59.52.png
  • Schermafbeelding 2011-05-06 om 14.02.35.png

Roncancio zei:
Ga met Windows Verkenner naar het betreffende directory, kopieer het gehele pad en plak het in de code (in het rode gedeelte).
Het beste om weer met F8 door de code te lopen zodat je niet steeds een melding krijg door de lus.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Laatst bewerkt:
Ja, ik zie het al.
Achter Picture (in het pad) moet nog een \

Met vriendelijke groet,


Roncancio
 
Ojee wat nou..

Ook dat heb ik nu gedaan. Nog blijft de foutmelding. Ik durf het nu al helemaal niet meer te zeggen...

Heb zelfs alle waarden nog naar een nieuw excel document gezet en alles nog een keer helemaal opnieuw gedaan, ook dit mocht niet baten..

Nog steeds onderstaand scherm;

  • Schermafbeelding 2011-05-06 om 14.15.01.png

Roncancio zei:
Ja, ik zie het al.
Achter Picture (in het pad) moet nog een \

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Volgens mij is de naam van de directory Tanja Bouwhuis ipv Tanja.
Wat je het beste kunt doen is om met de rechtermuisknop 1 van de bestanden te selecteren en naar de eigenschappen van dat bestand te gaan.
Daar kun je de juiste directory vinden en in de code kopieren.

Met vriendelijke groet,


Roncancio
 
Zou ook graag willen dat dat 't zou zijn, maar ook dat is het helaas niet.

  • Schermafbeelding 2011-05-06 om 14.32.27.png

Beetje frustrerend is 't wel... Misschien dat ik 't nog eens via een vaste pc moet gaan proberen ipv een extern bureaublad..

Roncancio zei:
Volgens mij is de naam van de directory Tanja Bouwhuis ipv Tanja.
Wat je het beste kunt doen is om met de rechtermuisknop 1 van de bestanden te selecteren en naar de eigenschappen van dat bestand te gaan.
Daar kun je de juiste directory vinden en in de code kopieren.

Met vriendelijke groet,


Roncancio
Klik om te vergroten...
 
Probeer het inderdaad eens via een pc ipv een extern bureaublad.

Met vriendelijke groet,


Roncancio
 
Opgelost..?!

Ik zoek nu via het programma FreeCommander.
Zet de Excellijst om naar een tekstbestand met tussen de zoekwaarden een ;

Per 10 zoek ik nu de map door waar de bestanden in staan.

In iedergeval sneller dan 1 voor 1.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan