Ich habe diesen Text geschrieben:
Alle links sind ganz sicher in der originalversion richtig!
Aber der Computer zeigt es einfach nich an!!!
VB.NET-Quellcode
- If Not My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaaooo.jpg") Then My.Computer.Network.DownloadFile("http://.../leer.jpg", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaaooo.jpg")
- PictureBox1.Image = Image.FromFile(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaaooo.jpg")
- If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaab.jpg") Then IO.File.Delete(IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "seiteaaaaaaaaaaaaaab.jpg"))
- My.Computer.Network.DownloadFile("http://.../Bild - Kopie.jpg", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaab.jpg")
- PictureBox1.Image = Image.FromFile(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaab.jpg")
- My.Computer.Network.DownloadFile("http://.../Seite1.txt", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- fileReader = My.Computer.FileSystem.ReadAllText(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- Label2.Text = fileReader
- IO.File.Delete(IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "seiteaaaaaaaaaaaaaa.txt"))
- My.Computer.Network.DownloadFile("http://.../Seite1 - kopie.txt", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- fileReader = My.Computer.FileSystem.ReadAllText(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- Label1.Text = fileReader
- IO.File.Delete(IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "seiteaaaaaaaaaaaaaa.txt"))
- My.Computer.Network.DownloadFile("http://.../Seite2.txt", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- fileReader = My.Computer.FileSystem.ReadAllText(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- Label4.Text = fileReader
- IO.File.Delete(IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "seiteaaaaaaaaaaaaaa.txt"))
- My.Computer.Network.DownloadFile("http://.../Seite2 - kopie.txt", System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- fileReader = My.Computer.FileSystem.ReadAllText(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\seiteaaaaaaaaaaaaaa.txt")
- Label3.Text = fileReader
- IO.File.Delete(IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "seiteaaaaaaaaaaaaaa.txt"))
Alle links sind ganz sicher in der originalversion richtig!
Aber der Computer zeigt es einfach nich an!!!