Frage zu Visual Basic und Dateien

Sun 13. Jan 2013, 00:57	Frage zu Visual Basic und Dateien	#1
Fa!l3R Join Date: Nov 2012 Posts: 82	Hallo meine lieben Forenuser Ich hätte da mal ne Frage... Undzwar habe ich mir ein kleines Programm gemacht und will jetzt auf Knopfdruck (Button1) eine Datei von Punkt A nach Punkt B verschieben. Wenn die Datei schon in dem Ordner existiert sollte er die auch selbst ersetzen. Bloß bekomme ich dies niht hin und im Internet finde ich auch keinen passenden Beitrag der mir hilft... Wenn es möglich ist will ich auch das die Datei "versteckt" ist die bei dem Programm mit dabei ist, sodass diejenigen die das Benutzen die 2. Datei garnet sehen. Wäre echt klasse wenn mit jemand helfen kann. Danke im vorraus!
Fa!l3R is offline

Sun 13. Jan 2013, 01:32		#2
Dovahkiin $ Spender $ Join Date: Aug 2008 Posts: 2594 User-Rating: 17 positive 5 negative	Ich muss dir leider mitteilen, dass sich hier hauptsächlich niemand mit VB auskennt. Mit Visual Basic kann man höchstens einen externen hack machen, es ist für hacken nicht sehr gut geeignet genau so wie C#. Es gibt genügend Forums die sich extra mit Visual Basic beschäftigen, dort könnte deine Frage besser beantwortet werden. Zu deine erste Frage, es gibt eine Klasse namens Only registered and activated users can see links.. Dort befindet sich alles was du brauchst. Zum verschieben gibt es dort die Methode Only registered and activated users can see links., hier ist ein Only registered and activated users can see links.. Falls du ersetzen möchtest, prüfst du zuerst ob die Datei existiert mit Only registered and activated users can see links., wenn ja führst Only registered and activated users can see links. aus. Und danach Move. Zu deine zweite Frage, die habe ich nicht ganz verstanden was du machen willst. __________________ Meine Lesezeichen Spoiler [Release] Dark Souls 2 Trainer [Release][Other]HolzIgto Injector v1.4.6 [Release][Other]HolzIgto Injector v1.2 [Release][Other]AutoIt Injector v1.2 Direct3D 8 und 9 - vTable Nummern [Release][Other]Steam Achievement Manager 6.3
Dovahkiin is offline

Sun 13. Jan 2013, 04:55		#3
Fa!l3R Join Date: Nov 2012 Posts: 82	Oke ja danke das mit den verschieben klappt jetzt. Mit der einen Frage meine ich, dass wenn die Benutzer die mein Tool benutzen einmal das Programm bekommen UND die Datei die verschoben werden soll. Und die Datei die verschoben werden soll, soll versteckt bzw. "unsichtbar" gemacht werden das diese Datei nicht sichtbar ist. //Edit: Ich habe da noch ein Problem My.Computer.FileSystem.MoveFile("Desktop\Ordner\Datei", _ "C:\Users\Jan\AppDataoaming\********\bin\Datei", _ FileIO.UIOption.AllDialogs, _ FileIO.UICancelOption.ThrowException) Das Problem ist, dass ich die Datei nicht von Desktop aus verschieben kann... Dann kommt eine Fehlermeldung das er die Datei nicht findet obwohl der Pfad richtig angegeben ist.
Fa!l3R is offline

Sun 13. Jan 2013, 10:52		#4
Dovahkiin $ Spender $ Join Date: Aug 2008 Posts: 2594 User-Rating: 17 positive 5 negative	TEXT Code: Dim sourcePath As String = TextBox1.Text Dim destPath As String = TextBox2.Text If File.Exists(destPath) Then File.Delete(destPath) End If File.Move(sourcePath, destPath) Also das hier funktioniert bei mir. Du muss drauf achten, dass Pfad zum Desktop so aussieht: C:\Users\(Benutzername)\Desktop __________________ Meine Lesezeichen Spoiler [Release] Dark Souls 2 Trainer [Release][Other]HolzIgto Injector v1.4.6 [Release][Other]HolzIgto Injector v1.2 [Release][Other]AutoIt Injector v1.2 Direct3D 8 und 9 - vTable Nummern [Release][Other]Steam Achievement Manager 6.3
Dovahkiin is offline

hukditur

Join Date: Jan 2013

Posts: 3

Die funktionen hab zu meinen VB zeiten benutzt.
Das wäre Datei verschieben

TEXT Code:

Imports System.IO
 
FileIO.FileSystem.MoveFile("DATEIPFAD", "AUSGABEPFAD")

Das wäre Ordner verschieben

TEXT Code:

Imports System.IO
 
FileIO.FileSystem.MoveDirectory("ORDNERPFAD", "AUSGABEPFAD")

Würde die jeweiligen funktionen aber mit einer try-catch abfrage "verpacken"

EDIT: Hab vergessen das es für die spezielle Ordner spezielle Codes gibt:

TEXT Code:

Dim pfad As String = Environment.GetFolderPath(Environment.SpecialFolder.DERGEWÜNSCHTEORDNER)

Visual Basic Express sollte dir eh anzeigen was du einsetzen kannst, bei Visual Studio ist es zuminderst so.

Und zu deiner Ersetzen funktion, würde ich es so machen:

TEXT Code:

Try 'Wenn Datei von nicht exestiert
     FileIO.FileSystem.MoveFile("DATEIPFAD", "AUSGABEPFAD")
Catch ex As Exception 'Wenn Datei schon exestiert
     FileIO.FileSystem.DeleteFile("PFAD", 0, FileIO.RecycleOption.DeletePermanently)
     FileIO.FileSystem.MoveFile("DATEIPFAD", "AUSGABEPFAD")
End Try

Mfg,
hukditur

Sun 13. Jan 2013, 13:39		#6
Dovahkiin $ Spender $ Join Date: Aug 2008 Posts: 2594 User-Rating: 17 positive 5 negative	Wenn man keine Ahnung einfach mal... Try Catch ist Fehlerbehandlung für Exceptions um auszugene was der Fehler war. Das was du geschrieben hast ist absolutes Blödsinn. http://msdn.microsoft.com/de-de/library/ms973849.aspx __________________ Meine Lesezeichen Spoiler [Release] Dark Souls 2 Trainer [Release][Other]HolzIgto Injector v1.4.6 [Release][Other]HolzIgto Injector v1.2 [Release][Other]AutoIt Injector v1.2 Direct3D 8 und 9 - vTable Nummern [Release][Other]Steam Achievement Manager 6.3
Dovahkiin is offline

Fa!l3R

Join Date: Nov 2012

Posts: 82

TEXT Code:

        Dim Benutzer As String = My.User.Name
 
        Try
            FileIO.FileSystem.MoveFile("C:\Users\Benutzer\Desktop\Ordner\Datei", "C:\Users\Benutzer\AppDataoaming\Ornder\bin\Datei")
        Catch ex As Exception
            FileIO.FileSystem.DeleteFile("C:\Users\Benutzer\AppDataoaming\Ordner\bin\Datei", 2, FileIO.RecycleOption.DeletePermanently)
            FileIO.FileSystem.MoveFile("C:\Users\Benutzer\Desktop\Ornder\Datei", "C:\Users\Benutzer\AppDataoaming\Ordner\bin\Datei")
        End Try

So alles funzt prima ab jetzt bis auf den Benutzernamen des Users herausfinden. Komme da net klar hat da jemand noch ne Antwort drauf?

Sun 13. Jan 2013, 18:18		#8
hukditur Join Date: Jan 2013 Posts: 3	Habe es damals immer so genutzt und hatte nie Probleme damit. Ist vielleicht nicht die Beste Variante, aber die Beste ist auch nicht die einzige Außerdem arbeite ich nicht mehr mit VB, daher habe ich einfach in meinen alten Projekten nachgesehen und dies gefunden.
hukditur is offline

Sun 13. Jan 2013, 18:24		#9
Fa!l3R Join Date: Nov 2012 Posts: 82	Ja ich habe auch keine Probleme damit bloß soll der wenn man Button1 klickt den Benutzernamen des Computers, um den Pfad zu ergänzen, in den Zeilen einsetzen... klappt aber net
Fa!l3R is offline

Sun 13. Jan 2013, 18:36		#10
hukditur Join Date: Jan 2013 Posts: 3	Willst du unbedingt den Benutzernamen wissen? Wenn nicht, ich geh mal davon aus, und du auf den Desktop zugreifen willst, nimm einfach: TEXT Code: Dim pfad As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) Dim pfad2 As String = pfad + "\verschiebmich.exe" 'Falls es so nicht klappt dan so: Dim pfad2 As String = pfad + "verschiebmich.exe" Mfg, hukditur
hukditur is offline

Sun 13. Jan 2013, 19:10		#11
Fa!l3R Join Date: Nov 2012 Posts: 82	Der findet jetzt den Pfad nicht nach AppDataRoaming... ^^ EDIT//: Problem gelöst. Fertig
Fa!l3R is offline

Sun 13. Jan 2013, 19:36		#12
Dovahkiin $ Spender $ Join Date: Aug 2008 Posts: 2594 User-Rating: 17 positive 5 negative	Quote from Fa!l3R Der findet jetzt den Pfad nicht nach AppDataRoaming... ^^ Wenn du schon MoveFile und DeleteFile benutzt, dann muss es so heißen: TEXT Code: Dim descDir As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) Dim roamingDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) Dim sourcePath As String = descDir + "datei.txt" Dim destPath As String = roamingDir + "datei.txt" If FileIO.FileSystem.FileExists(destPath) Then FileIO.FileSystem.DeleteFile(destPath) End If FileIO.FileSystem.MoveFile(sourcePath, destPath) Quote from hukditur Habe es damals immer so genutzt und hatte nie Probleme damit Nur weil es funktioniert heißt es nicht, dass es richtig ist und schon garnicht wenn du die Logik dahinter nicht verstehst... Quote from hukditur Ist vielleicht nicht die Beste Variante, aber die Beste ist auch nicht die einzige Es ist nicht nur die beste sondern eine schlechteste. Quote from hukditur Außerdem arbeite ich nicht mehr mit VB, daher habe ich einfach in meinen alten Projekten nachgesehen und dies gefunden. Anscheinend "arbeitest" du mit garkeine Programmiersprache. Try catch ist in allen Prorgammiersprachen gleich. Und es ist nicht für so was gedacht. EDIT: @Fa!l3R Hab noch geschrieben, als du editiert hast. __________________ Meine Lesezeichen Spoiler [Release] Dark Souls 2 Trainer [Release][Other]HolzIgto Injector v1.4.6 [Release][Other]HolzIgto Injector v1.2 [Release][Other]AutoIt Injector v1.2 Direct3D 8 und 9 - vTable Nummern [Release][Other]Steam Achievement Manager 6.3
Dovahkiin is offline