Moin,
mein erster Beitrag und gleich eine Frage. Mein Quellcode liest alle Dateien in einem Ordner aus und verschiebt die Dateien in einen Ordner, der gleichlautend zum Dateinamen heißt. Falls der Ordner noch nicht existiert, wird ein Ordner erstellt und dann verschoben.
Was aber, wenn die Beispiel.txt bereits unter \Beispiel\Beispiel.txt existiert? Bisher Frage ich ja nach dem löschen. Ich möchte dem User aber anbieten, seine Datei via Inputbox umzubenennen.
Beispiel.txt ---> Irgendwas.txt. Dann Move nach \Beispiel\Irgendwas.txt.
Dabei soll der aktuelle Dateiname im Textfeld der Inputbox stehen, damit der User direkt sieht, welche Datei gerade vermackelt wird. Dort kann er dann den Text anpassen und den Lauf fortsetzen. So meine Wunschvorstellung. Was sagt Ihr dazu?
Noch zu meiner Person (ein Vorstellungsforum habe ich nicht gefunden?):
Mitte 20, IT´ler & Kaufmann in der Industrie, Student der WI mit Basiswissen in VB.Net, VBA & Java
Danke und Gruß
Lico
mein erster Beitrag und gleich eine Frage. Mein Quellcode liest alle Dateien in einem Ordner aus und verschiebt die Dateien in einen Ordner, der gleichlautend zum Dateinamen heißt. Falls der Ordner noch nicht existiert, wird ein Ordner erstellt und dann verschoben.
VB.NET-Quellcode
- Select Case True
- Case File.Exists(strZielordner & strDatei2)
- strDateinameNeu = InputBox("Die angebenene Datei existiert bereits! Bitte einen neuen Dateinamen angeben", "Hinweis")
- File.Move(strZielordner, strZielordner & strDatei2)
- If MsgBox("Soll Datei " & strZielordner & strDatei2 & " überschrieben werden?", vbYesNo) = MsgBoxResult.Yes Then
- File.Delete(strZielordner & strDatei2)
- Zaehler1 = Zaehler1 + 1
- File.Move(strDatei, strZielordner & strDatei2)
- End If
- Case Directory.Exists(strZielordner) = True
- File.Move(strDatei, strZielordner & strDatei2)
- Zaehler1 = Zaehler1 + 1
- Case IO.Directory.Exists(strZielordner) = False
- MkDir(strZielordner)
- Zaehler2 = Zaehler2 + 1
- Zaehler1 = Zaehler1 + 1
- File.Move(strDatei, strZielordner & strDatei2)
- End Select
- Next
Was aber, wenn die Beispiel.txt bereits unter \Beispiel\Beispiel.txt existiert? Bisher Frage ich ja nach dem löschen. Ich möchte dem User aber anbieten, seine Datei via Inputbox umzubenennen.
Beispiel.txt ---> Irgendwas.txt. Dann Move nach \Beispiel\Irgendwas.txt.
Dabei soll der aktuelle Dateiname im Textfeld der Inputbox stehen, damit der User direkt sieht, welche Datei gerade vermackelt wird. Dort kann er dann den Text anpassen und den Lauf fortsetzen. So meine Wunschvorstellung. Was sagt Ihr dazu?
Noch zu meiner Person (ein Vorstellungsforum habe ich nicht gefunden?):
Mitte 20, IT´ler & Kaufmann in der Industrie, Student der WI mit Basiswissen in VB.Net, VBA & Java
Danke und Gruß
Lico