Een image in een map saven op het desktop

[satriano17]

dag
Ik ben een paar weken bezig maar ik raak niet uit.
Ik heb ook op andere plaatsen gekeken om hulp te krijgen maar niks..
Dus:

Met dit kan ik een image saven op iedere desktop
Het werkt goed

Private Sub Command1_Click()
home = Environ("HOMEPATH")
InitDir = home
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp"
End Sub

ik wou echter ook een map op desktop maken om daarin de image te saven
Maar dit werkt echt niet.

Private Sub Command1_Click()
home = Environ("HOMEPATH")
MkDir home & "\photos\" ' een dir maken
InitDir = home
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp"
End Sub

Ik wil dus een map maken op desktop en daar een image saven.
Hoe moet dan?
dank u

 

[edmoor]

Doe het eens zo:

home = Environ("USERPROFILE" & "\Desktop")

 

[satriano17]

dag edmoor
Uw tip werkt ook , maar, zoals gezegd, ik wil ook een map maken op het desktop
en daar de image saven

MkDir home & "\photos\" ' een dir maken

en de map word nog niet gemaakt.

en dan saven in dat map met, ongeveer

SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp" '

want ik moet ook de pas gemaakt map vermelden

 

[edmoor]

Als je de variabele "home" de waarde geeft zoals ik zei dan wordt die map gewoon aangemaakt en kan het alleen maar fout gaan als die map al bestaat.
Overigens moet je dan niet "\photos\" gebruiken maar "\photos", dus zonder die laatste backslash.

 

[satriano17]

Hier mijn volledig code (met uw verbeteringen )

Private Sub Command1_Click()

home = Environ("USERPROFILE" & "\Desktop")
InitDir = home
MkDir home & "\test" ' een dir maken
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp"
End Sub

het is raar maar wordt geen map 'test' aangemaakt

als ik bv zo doe

MkDir App.path & "\test" ' een dir maken

wordt WEL de map aangemaakt in app.path
Dus is de variabel home die niet werkt

 

[edmoor]

Mij fout, sorry!
Maak er dit van:

home = Environ("USERPROFILE") & "\Desktop"

 

[satriano17]

uff ! Nu wordt wel de map gemaakt
dank u ednoor


Maar de InitDir werkt nog niet optimaal

Ik bedoel:
als de map gemaakt is moet ik, elke keer dat moet saven , rechtstreeks
naar di 'vaste' map gebracht woorden dmv deze commando

SavePicture Image1.Picture, CommonDialog1.FileName & ".bmp"

 

[edmoor]

Dat zal komen omdat je die niet meegeeft in de savepicture opdracht.
Die variabele is daarnaast ook overbodig omdat je de home variabele al hebt.

SavePicture Image1.Picture, home & "\photos\" & CommonDialog1.FileName & ".bmp"

 

[satriano17]

Nu is perfect, endmoor !!
Het is wat in het begin bedoeld

Opgelost (door u) , volgens mij.

Bedankt voor uw hulp.
Ik was , zoals gezegd, dagen bezig geweest.

dank u
satriano

 

[edmoor]

Graag gedaan
Nog een advies: maak er een gewoonte van om je variabelen te declareren met het Dim statement.
Dat zal je in grotere projecten alleen maar voordelen opleveren.
Als in het Visual Basic project de optie Option Explicit aan staat is het zelfs verplicht.