Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Bestanden hernoemen  (gelezen 7707 keer)

0 leden en 1 gast bekijken dit topic.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • 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.
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.

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: 17.736
  • 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:

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 :)             
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline Math Reinders

  • Volledig lid
  • **
  • Berichten: 157
  • 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.

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • 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
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com