Springen naar inhoud


- - - - -
VB6 SOLVED

Een Map Dmv Een Variabel Maken (Aan Runtime)



  • Log in a.u.b. om te beantwoorden
Er zijn 12 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 06 november 2014 - 21:05

Dag
Met deze  kan ik gewoon een  map maken via code
Code:
MkDir App.Path & "\Test\" ' 
Ik wou anders doen, namelijk via een variabel
Code:
Private Sub Command1_Click()
mapnaam=text1.text
MkDir App.Path, mapnaam.
End Sub

dus (aan runtime) een naam invoeren in een textbox
en van die naam moet een map gemaakt worden.
Maar het werkt niet.
Dank u
houthalen

#2 pluto

pluto

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 663 berichten
    Laatst bezocht 27 sep 2019 14:57

Geplaatst op 06 november 2014 - 21:49

ik denk op het eerste zicht     die , vervangen door &

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 06 november 2014 - 23:32

Nee, Pluto. Ik heb geprobeerd en werkt ook niet.

#4 ArComAr

ArComAr

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 3788 berichten
    Laatst bezocht 04 mei 2018 13:52

Geplaatst op 07 november 2014 - 09:50

Wat Pluto zegt lijkt me wel juist. Welke fout krijg je? Heb je die "." achter de variable mapnaam nog staan, want dat is niet toegelaten.

#5 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 07 november 2014 - 11:02

ik heb zo gedaan

Code:
Private Sub Command1_Click()
mapnaam=text1.text
MkDir App.Path & mapnaam.
End Sub

en wordt geen map gemaakt
als ik in de textbox iets intype

geen error maar ook geen map in de App.Path

#6 ArComAr

ArComAr

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 3788 berichten
    Laatst bezocht 04 mei 2018 13:52

Geplaatst op 07 november 2014 - 12:02

maar  "mapnaam." lijkt me geen juiste syntax. Heb je al geprobeerd, zoals ik in mijn vorige post zei, zonder die punt aan het einde?

#7 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 07 november 2014 - 12:54

ja, ik heb die punt weggedaan ;
k heb ook de variabel naam veranderd.
Toch wordt geen map gemaakt in de App.Path
ik begrijp ook niet.
De code is toch simpel en kort

ik heb pas iets ontdekt: !!!
de map wordt  wel gemaakt maar niet in de App.path van de programma maar op de desktop van de computer.
Dus
ontbreekt iets in de code.

.

#8 tromt

tromt

    Professional Developer

  • Leden
  • PipPipPipPip
  • 303 berichten
    Laatst bezocht 17 apr 2018 10:02
  • LocatieRijen (NB)

Geplaatst op 07 november 2014 - 18:11

Als je App.Path gebruikt sta je op dat moment in de map waar de executable van het programma staat dat je start.
Dus als de xxx.exe op je bureaublad staat, dan is dat de App.Path

#9 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 07 november 2014 - 18:28

Code:
mapnaam=text1.text
MkDir App.Path & "\" &  mapnaam



#10 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 07 november 2014 - 19:46

Beste Svr

dankzij uw ,ondertussen gekende , tik met de toverstok,  is het eindelijk opgelost !

Want ik was lang bezig, zonder succes, met deze toch klein routine.

hartelijk bedankt !
houthalen
(opgelost)

#11 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 08 november 2014 - 12:03

het zijn vaak kleine foutjes waar je lang kan op zoeken.

Probeer je code te controleren met "debug" commando
Zorg eerst dat het venster "immedate window" geopend is: View --> immedate window

vb:
Code:
mapnaam=text1.text
debug.print "var mapnaam= " & App.Path & "\" & mapnaam
MkDir App.Path & "\" & mapnaam



#12 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 167 berichten
    Laatst bezocht 03 dec 2019 12:23

Geplaatst op 08 november 2014 - 13:56

Ok, dank u

#13 Svr

Svr

    Junior Developer

  • Leden
  • PipPip
  • 51 berichten
    Laatst bezocht 08 jul 2016 20:37

Geplaatst op 08 november 2014 - 14:33

graag gedaan





Ook met taq VB6 SOLVED voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6 SOLVED] Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)