Mapje aanmaken op usb-stick

Status
Niet open voor verdere reacties.
O

Oude leerling

Gebruiker
Lid geworden
30 aug 2010
Berichten
554
Edmoor,

Ik begin maar even overnieuw want vraag stond op opgelost

Wat wil ik realiseren:

Een programmaatje vanaf de usb-stick laten uitvoeren in welk programma ook het aanmaken van een nieuw mapje staat
Dit mapje moet geplaatst worden op de betreffende usb-stick
Uitvoerbaar op meerdere Computers
Naam van het mapje zou moeten worden "Biljarten 2023"

Onder staande code geeft foutmelding . Kan het pad niet vinden


Code: 
MkDir Left(ThisWorkbook.Name, 2) & "\Biljarten " & Sheets("Nieuwe ronde").Range("C3")
In C3 staat het gewenste jaartal

Vriendelijke groet , Jaap
 
Laatst bewerkt:
En je verteld nog steeds niet over welk programma je het hebt.
Wat je plaatste is niet goed, dat moet het volgende zijn:
Code: 
MkDir Left(ThisWorkbook.Path, 2) & "\Biljarten " & Sheets("Nieuwe ronde").Range("C3")
(Mijn fout)
 
Laatst bewerkt:
Het programma is om biljartuitslagen bij te houden
Heb het op mijn PC gemaakt en op een usb-stick geplaatst om het op verschillende
computers te kunnen gebruiken

De code werkt maar heel vreemd hij doet het maar 2 keer

Een maal geplaatst op het usb-stickje
Een 2e-keer , na het verwijderen van het aangemaakte mapje , ergens anders maar niet op het usb-stickje , en niet meer terug te vinden
Een derde keer foutmelding dat het pad niet te vinden is

Wat betekend die 2 in uw code?
 
De eerste 2 posities van het pad van het Excel document.
Ik neem aan dat je een Excel document bedoelt met "programma".
En dat je dat document opent vanaf de USB stick.
 
Inderdaad
Het is een Exel programma

Kunt u mij ook vertellen waarom , als ik het aangemaakte mapje verwijder ,
het een 2e-keer niet meer op het usb-stickje word aangemaakt
 
Dat zou ik zo niet weten.
Heb je tussentijds het document ergens anders opgeslagen?
 
Nee , ik heb het nergens anders opgeslagen

Ik denk dat ik er met het gebodene wel uitkom
Ga het in ieder geval proberen
Bedankt voor de oplossing en het geduld wat u met me had
Vriendelijke groet , Jaap
 
Zeg Jaap, zullen we het eens systematisch gaan aanpakken?

Zet in het Excelbestand in de macromodule van het werkboek de volgende code:

Code: 
Private Sub Workbook_Open()
   MsgBox ThisWorkbook.Path & "\Biljarten " & Year(Date) + 1
End Sub

Sla dit bestand dan op op de USB-stok.
Open vervolgens het bestand vanaf de USB-stok en noteer welke melding je krijgt.
Verstrek ons die melding in deze draad.
Met dat gegeven gaan we dan de code maken om de directory aan te maken.
 
Snb,

Interessant!!

Heb het gedaan maar als ik het bestand open dan gebeurd er niets
Geen foutmelding en/mededeling
 
Hierbij het testbestandje wat op de usb-stick staat
 

Bijlagen

  • Test snb.xlsm
    11,5 KB · Weergaven: 19
Je moet die code wel in de ThisWorkbook zetten, niet achter Blad1.
 
Ik heb dit nog nooit gedaan.
Zover gaat mijn kennis nog niet

Nu kreeg ik de mededeling D:/Biljarten 2023
 
Dat is makkelijk te onthouden.
ThisWorkbook.Path begint al met de sectie waarin hij thuis hoort :)

En je / zal een \ zijn.
 
Ik ga ervan uit dat je met een Windowscomputer werkt.
Verander nu de code in dit bestand tot:

Code: 
Private Sub Workbook_Open()
   MsgBox ThisWorkbook.Path & "\Biljarten " & Year(Date) + 1
   Mkdir ThisWorkbook.Path & "\Biljarten " & Year(Date) + 1
End Sub
 
Laatst bewerkt:
Nu krijg ik weer de mededeling D:\Biljarten 2023
maar als ik op oké druk krijg fout 75 bestand of pad is niet te vinden
 
snb en edmoor,

Ik heb een test bestandje gemaakt en de code toegepast van edmoor ,

Code: 
Sub Macro1()
MkDir Left(ThisWorkbook.Path, 2) & "\Biljarten " & Sheets("Nieuwe ronde").Range("C3")
End Sub

en wie schetst mijn verbazing in het testbestandje werkt het gewoon

Waarom het niet werkte in mijn exel programma is mij nog niet duidelijk
maar dat zoek ik nog wel uit
Probleem is dus , denk ik , opgelost
 

Bijlagen

  • Test mapje makenop usbstick.xlsm
    11,8 KB · Weergaven: 12
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan