Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: kijken of er een bestand in een bepaalde directory staat

  1. #1
    Senior Member
    Geregistreerd
    5 december 2006
    Vraag is niet opgelost

    kijken of er een bestand in een bepaalde directory staat

    Ik zou graag telkens bij het openen van een bestand een copij van het bestand willen maken in een andere map...
    hiervoor wil ik eerst gaan kijken of er in die map al een bestand staat en zo ja, het eerdere bestand verwijderen.
    omdat ik hiervoor naar een dropbox map verwijs en deze door verschillende mensen gebruikt wordt en dus ook vanop verschillende pc's kan ik niet met een "vast" pad werken. ik moet dus een "variabele" in mijn pad verwerken.

    dit doe ik zo:

    Code:
    Private Sub Workbook_Open()
    Dim answer As String
    Dim sUserName As String
    Dim bestandbestaat As Boolean
    Dim filenamebackup As String
    
    
     sUserName = VBA.Environ$("username")
    wanneer ik daar de volgende regel aan toevoeg:

    Code:
    filenamebackup = dir(C:\Users\ & sUserName & \Dropbox\2 - JBM Events\Show mgmt\backup-smos & "\*.xlsm")
    wordt deze regel niet aanvaard... ik maak dus ergens een fout... maar weet niet waar... ik zie het niet.


    kan iemand even meekijken aub?

    bedoeling is om de filenaam in te lezen in een variabele (filenamebackup)
    als deze "" is dan zet ik een boolean op false
    boolean false, dan weet ik l dat het bestand niet bestaat en ga ik het bestand (een back-up dus) wegschrijven in een de eerder vermelde map.
    als boolean = true dan ga ik eerst het bestaande bestand verwijderen en dan het bestand weer wegschrijven in de eerder vermelde map. een back-up maken in een andere map dan de map waar het bestand zich bevind

    op het einde van het "programma" moet het bestand in de originele map bewaard worden (dus niet in dezelfde map als de back-up)

  2. #2
    Senior Member
    Geregistreerd
    3 november 2021
    Quote Origineel gepost door journeyman Bekijk Bericht
    wordt deze regel niet aanvaard...
    Beetje vage omschrijving. Het gaat hier toch niet om een erfenis?
    Code:
    filenamebackup = dir(C:\Users\ & sUserName & \Dropbox\2 - JBM Events\Show mgmt\backup-smos & "\*.xlsm")
    Wat levert de code dan wèl op? Oftewel: krijg je een foutmelding? Blijft de variabele leeg?

  3. #3
    Senior Member
    Geregistreerd
    5 december 2006
    hij geeft een syntaxisfout op die regel....

  4. #4
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Gebruik wel de aanhalingstekens juist

    Code:
    Dir("C:\Users\ & sUserName & \Dropbox\2 - JBM Events\Show mgmt\backup-smos\*.xlsm", vbDirectory)
    Gr,
    JV

  5. #5
    Senior Member
    Geregistreerd
    3 november 2021
    De code van jveer lijkt mij ook fout...
    Code:
    filenamebackup = Dir("C:\Users\" & sUserName & "\Dropbox\2 - JBM Events\Show mgmt\backup-smos\*.xlsm")

  6. #6
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Hoezo is die fout?
    Gr,
    JV

  7. #7
    Senior Member
    Geregistreerd
    5 december 2006
    als ik de code van JVeer toepas blijft mn variabele leeg, dan is wel de syntaxis error er uit. maar hij vind dan blijkbaar niet de weg naar de juiste map...

  8. #8
    Senior Member
    Geregistreerd
    5 december 2006
    Dir("C:\Users" & sUserName & "\Dropbox\2 - JBM Events\Show mgmt\backup-smos\*.xlsm", vbDirectory)

    dit lost het probleem op. dus eigenlijk bij mijn initiele code de vbdirectory een double quotes bij zetten...er bij zetten.

    merciekes om mee te denken mannen!

  9. #9
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Dir werkt als het goed is niet met dropbox/sharepoint, ofwel online folders. Is je folder gelinkt aan je verkenner?
    Gr,
    JV

  10. #10
    Senior Member
    Geregistreerd
    5 december 2006
    ja mijn folder is gelinkt aan mijn verkenner.
    denk dat het probleem bij "gebruikers" waar dropbox niet gekoppeld is aan hun verkenner gaat blijven bestaan....

  11. #11
    Giga Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Ik zou het op deze manier doen

    Code:
    Sub jec()
     a = "C:\Users\" & sUserName & "\Dropbox\2 - JBM Events\Show mgmt\backup-smos\"
    
     With CreateObject("scripting.filesystemobject").getfolder(a)
       If .Files.Count Then    'er zit een bestand in de folder (true)
       
          .....
       Else
          ....
              
       End If
     End With
    End Sub
    Gr,
    JV

  12. #12
    Senior Member
    Geregistreerd
    5 december 2006
    dak voor de tip!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren