dotNETportal.cz

Zdravim,

mám tenhle kód:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cesta As String = InputBox("Vložte adresu souboru na internetu")
        If cesta <> Nothing Then
            Dim cestaOff As String = Application.StartupPath & "\" & IO.Path.GetFileName(cesta)
            If IO.File.Exists(cestaOff) = True Then IO.File.Delete(cestaOff)
            My.Computer.Network.DownloadFile(cesta, cestaOff)
            MsgBox("Soubor " & cestaOff & " existuje ? " & IO.File.Exists(cestaOff))
            Shell(cestaOff)
        End If
    End Sub
End Class

a když to nakopnu tak mi to píše že soubor nenalezen a sekne se to u jeho spuštění

Tak krokujte. Zkuste jestli se soubor opravdu stáhnul, jestli máte správnou cestu, jestli jde soubor po zadání adresy do prohlížeče stáhnout atp. Musíte rozložit kód kusy a najít konkrétní příkaz, který nedělá to, co má. Přezkoumejte parametry a zkuste se zeptat konkrétně. Například: volám funkci xyz s parametrem tím a tím, soubor v cestě ta a ta neexistuje, ale jako výsledek dostávám to a to. Uděláte tím za nás práci, kterou dělat nechceme (a hlavně ani na dálku nemůžeme) - zjistěte konkrétní podrobnosti.

Kod jsem přiložil celý a napsal jsem že to chybuje u funkce Shell.

Dám tam cestu napevno a uvidí se.

a jestli si někdo nevšiml mám tam kontrolu jestli soubor existuje, vždy to píše že existuje, zvláštní.

process.start funguje, ale mě by zajmalo proč nefunguje ten shell :)

Tak se to asi nedozvim no když máte takovejhle přístup teda...