*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 [2]   Omlaag

Auteur Topic: Bestanden hernoemen  (gelezen 11236 keer)

0 leden en 1 gast bekijken dit topic.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Bestanden hernoemen
« Reactie #15 Gepost op: 18 november 2015, 17:01:36 »
Je kan mijn functie gebruiken. Je moet ze wel even aanpassen.
Geef dan die map door als parameter.
Code: [Selecteer]
Function BestandnamenInEenMapOphalen( strGeselecteerdeMap as string) As String()
   
   
    'fso
    Dim fso As FileSystemObject
    'maak een folder
    Dim map As Folder
   
    'instantieer een nieuwe fso
    Set fso = New FileSystemObject
    'stel map in als de geselecteerde folder
    Set map = fso.GetFolder(strGeselecteerdeMap)
   
    'Loop nu de bestanden in deze map af
    'We gaan er van uit dat er niet meer dan 1000 bestanden in staan.
    Dim Namen(1000) As String
    Dim teller As Integer
    teller = 1
    For Each F In map.Files
        Namen(teller) = F.Name
        teller = teller + 1
    Next F
   
   
    BestandnamenInEenMapOphalen = Namen
   
End Function

Deze functie geeft dan een string array door (max 1000) maar ook dat kan je aanpassen.

Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.181
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Bestanden hernoemen
« Reactie #16 Gepost op: 18 november 2015, 17:04:38 »
Hey math,

EDIT: Ik zie dat Dizzl je al een antwoord heeft gegeven voor Access.
Mijn macro is voor Excel, ik heb er geen benul van of dit ook toepasbaar is als macro in Access, want van Access ken ik nougaballen ;D

Deel van code stond reeds in mijn vorige macro:
Dus in Excel:

Code: [Selecteer]
Sub ZoekBestandenInMap()
 
    Dim myValue As Variant, Dim File As Variant
   
myValue = inputbox("Geef de naam op van de map, bvb C:\Test\")

For a = 1 To 1000
       
    Path = myValue
    File = Dir(Path)
        Do Until File = ""
                ActiveSheet.Cells(a, 1).Value = Path & File
                File = Dir()
        Loop
Next

End Sub
:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 168
  • Geslacht: Man
  • Oplossing.be
Re: Bestanden hernoemen
« Reactie #17 Gepost op: 18 november 2015, 17:26:15 »
SoftAid,

je macro is inderdaad voor Excel.
Wat Dizzl schrijft dit is voor mij ?X????>?
De tekst van Dizzl heb ik in de programmacode gezet van een knop. Verder gebeurt er niets. Zal wel iets fout doen !!!
Gr.
Gelogd

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Bestanden hernoemen
« Reactie #18 Gepost op: 18 november 2015, 17:32:04 »
In bijlage een access vbtje
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional
Pagina's: 1 [2]   Omhoog
 


www.combell.com