[VB] een bestand zichzelf laten kopieren

[anoniem]

Hoe doe ik dat, dat bijvoorbeeld iemand hem opent en hem naar C:\windows\start menu kopieert? Ik heb echt overal gezocht voor die code en kan hem niet vinden en zelf weet ik ook niet hoe ik het moet maken dus hopelijk helpen jullie me :cry:

[anoniem]

[quote:d009d6ee81="ikbengoed"]Hoe doe ik dat, dat bijvoorbeeld iemand hem opent en hem naar C:\windows\start menu kopieert? Ik heb echt overal gezocht voor die code en kan hem niet vinden en zelf weet ik ook niet hoe ik het moet maken dus hopelijk helpen jullie me :cry:[/quote:d009d6ee81] niemand? :cry:

[anoniem]

Heel kort: maak een referentie naar de "Microsoft Scripting Runtime", en ga dan eens kijken naar het FileSystemObject. Daar kun je trouwens ook iets over vinden op msdn.microsoft.com. Gewoon zoeken naar FileSystemObject. Een snel probeerseltje: [code:1:6bbecc8ac7] Private Sub Command1_Click() CopyMeTo "C:\Temp\" End Sub Function CopyMeTo(Path_In As String) As Boolean Dim fso As New FileSystemObject fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Path_In End Function [/code:1:6bbecc8ac7] In een formulier een knop plaatsen, en dan draaien. Hoop dat dit is wat je zoekt. Succes

[anoniem]

[quote:09fca0a958="Eddi3"]Heel kort: maak een referentie naar de "Microsoft Scripting Runtime", en ga dan eens kijken naar het FileSystemObject. Daar kun je trouwens ook iets over vinden op msdn.microsoft.com. Gewoon zoeken naar FileSystemObject. Een snel probeerseltje: [code:1:09fca0a958] Private Sub Command1_Click() CopyMeTo "C:\Temp\" End Sub Function CopyMeTo(Path_In As String) As Boolean Dim fso As New FileSystemObject fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Path_In End Function [/code:1:09fca0a958] In een formulier een knop plaatsen, en dan draaien. Hoop dat dit is wat je zoekt. Succes[/quote:09fca0a958] bedankt!!!!!!! maar ik wou ook nog dat je zelf de naam kan bepalen. dat het bijvoorbeeld als blah.exe naar C:\temp word gekopieerd want als ik het in het startmenu wilt hebben moet het wel precies de naam naar mijn programma'tje zijn, niet dat iemand het gaat renamen naar ikbenblah.exe of zo. Maar als dat niet lukt, aan deze code heb ik heel veel!!! bedankt!

[anoniem]

[quote:1b76133b4f="ikbengoed"] Hoe doe ik dat, dat bijvoorbeeld iemand hem opent en hem naar C:\windows\start menu kopieert? Ik heb echt overal gezocht voor die code en kan hem niet vinden en zelf weet ik ook niet hoe ik het moet maken dus hopelijk helpen jullie me [/quote:1b76133b4f] In het startmenu horen normaal gesproken alleen snelkoppelingen. En ik denk als ik het bovenstaande allemaal lees, dat je dat ook bedoelt. [url=http://www.google.nl/search?q=visual+basic+shortcut+start+menu]Google search[/url] http://www.vbcity.com/forums/topic.asp?tid=7800 http://www.ostrosoft.com/vb/projects/shortcut.html http://www.vb-world.net/tips/tip35.html [quote:1b76133b4f="ikbengoed"] maar ik wou ook nog dat je zelf de naam kan bepalen. dat het bijvoorbeeld als blah.exe naar C:\temp word gekopieerd want als ik het in het startmenu wilt hebben moet het wel precies de naam naar mijn programma'tje zijn, niet dat iemand het gaat renamen naar ikbenblah.exe of zo. Maar als dat niet lukt, aan deze code heb ik heel veel!!! bedankt![/quote:1b76133b4f] Dim MijnApplicatie as string MijnApplicatie = App.Path & "\" & App.EXEName