Visual basic code hulp

[jyppino]

Ik heb een code nodig voor visual basic dat na het bureaublad verwijst.
Ik weet alleen dat het in batch (notepad) dit is:

C:\Users\%USERNAME%\Desktop

Dus dat er automatish op de %USERNAME% de gebruikersnaam komt.
Ik heb dit nodig voor een save code dus eigenlijk zoiets:

Dim filedir = "C:\Users\%USERNAME%\Desktop\file.exe"

Iemand een idee?

 

[Ellasar]

Dim strFileDir

Set WshShell = WScript.CreateObject("WScript.Shell")
strFileDir = WshShell.SpecialFolders("Desktop")

 

[jyppino]

Krijg de error: Name 'WshShell' is not declared

 

[Ellasar]

Dim strFileDir
Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")
strFileDir = WshShell.SpecialFolders("Desktop")

Dan declareren we die Sorry

 

[jyppino]

Dat was dom van mij, had ik zelf ook kunnen doen.
Bedankt, werkt:thumb:

 

[The Mighty Atom]

Als je VB.NET gebruikt, is dit een stuk makkelijker:

        Dim filedir = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\file.exe"

OF:

        Dim filedir = My.Computer.FileSystem.SpecialDirectories.Desktop & "\file.exe"

 

[jyppino]

Misschien kunnen jullie dan hier mee helpen:

 If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            MsgBox("File downloaden, would you wish to run the setup?", MsgBoxStyle.Information + MsgBoxStyle.YesNo)
            If vbYes Then
                Dim filedir2 = My.Computer.FileSystem.SpecialDirectories.Desktop & "\TuneupSetup.exe"
                Shell(filedir2)
            End If
        End If

Als ik de msgbox tevoorschijn komt, en ik klik op Yes krijg ik een error dat het bestand niet bestaat.
Maar het bestand bestaat wel!
Want hiervoor wordt het bestand TuneUp setup naar:
"My.Computer.FileSystem.SpecialDirectories.Desktop & "\TuneupSetup.exe"
gedownload.

Is hier een oplossing voor?

 

[The Mighty Atom]

Is het TuneUp of Tuneup? Het is geloof ik hoofdlettergevoelig.

 

[jyppino]

Ligt niet aan hoofdletters

 

[jyppino]

Als ik de code verander naar deze:

If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            MsgBox("File downloaden, would you wish to run the setup?", MsgBoxStyle.Information + MsgBoxStyle.YesNo)
            If vbYes Then
                Dim filedir2 = My.Computer.FileSystem.SpecialDirectories.Desktop & "\TuneupSetup.exe"
                [COLOR="Red"]Shell("explorer.exe", filedir2)[/COLOR]
            End If
        End If

Krijg ik deze error:
De conversie van tekenreeks C:\User\Jyppino\Desktop\TuneupSetup.exe naar type Short is ongeldig.

Misschien weten jullie hier wel een oplossing voor?

 

[The Mighty Atom]

Probeer inplaats van Shell Process.Start. Dus zo:

        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            If MessageBox.Show("File downloaded, would you wish to run setup?", _
                                "Download finished", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                Process.Start(My.Computer.FileSystem.SpecialDirectories.Desktop & "\TuneupSetup.exe")
            End If
        End If

Ik heb ook MsgBox veranderd in MessageBox.Show. MsgBox is nog een overblijfsel van het VB6 tijdperk. Datzelfde geldt ook voor Shell. De nieuwe variant van Shell is Process.Start.

 

[jyppino]

Gelukt:thumb:
Bedankt, nu kan ik mijn project afmaken.
Vraag opgelost!