10
Pfadangabe über Windowsdialog im VBS-Script
Hallo Admins,
ich habe ein Script mit dem ich immer größere Dateimengen in unserer Ordnerstruktur zusortiere. Der Aufbau ist 1. Teil des Pfades\Objektnummer\2. Teil des Pfades. Die Objektnummer lese ich aus dem Dateinamen aus (ersten 4 Stellen). Ich hätte jetzt gerne eine Möglichkeit die Pfade der Quelle und der Ziele über eine sich öffnenden Dialog anzugeben (nicht Inputbox da ich da den genauen Pfad wissen muss).
Weiters kommt noch dazu, dass beim Zielpfad für den 2. Pfadteil, der 1. Pfadteil und die 4stellige Objektnummer noch abgezogen werden muss. Da sehe ich aber weniger das Problem.
Wie kann ich den Dialog zur Ordnerauswahl einfügen?
Danke für eure Hilfe.
Gruß Joni
Hier noch der Code
Weiters kommt noch dazu, dass beim Zielpfad für den 2. Pfadteil, der 1. Pfadteil und die 4stellige Objektnummer noch abgezogen werden muss. Da sehe ich aber weniger das Problem.
Wie kann ich den Dialog zur Ordnerauswahl einfügen?
Danke für eure Hilfe.
Gruß Joni
Hier noch der Code
quelle = "C:\Kalkulation\" 'Pfad inkl. \
ziel = "E:\Objekte\" 'Pfad inkl. \
zielpfad = "\12_Abrechnung\" 'Pfadteil nach der Objektnummer - Beginn und Ende mit \
DD = Date
dt = Year(DD) & "-" & Right("0" & Month(DD), 2) & "-" & Right("0" & Day(DD), 2)
ZZ = Time
zt = Left(ZZ, 2) & "-" & Mid(ZZ, 4, 2) & "-" & Right(ZZ, 2)
logdat = "e:\log_" & dt & "_" & zt & ".txt"
'msgbox(logdat)
on error resume next
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFolder(quelle)
Set lf = fs.CreateTextFile(logdat, True)
For Each file in f.Files
fn = file.Name 'alten Namen speichern
ONR = left(alt, 4) 'Objektnummer am Anfang des Dateinamens auslesen
if fs.FolderExists(ziel & ONR & zielpfad) then 'Zielverzeichnis muss vorhanden sein
if quelle <> ziel & ONR & zielpfad then 'Zielverzeichnis darf nicht gleich Quelle sein
file.move (ziel & ONR & zielpfad) 'ins Zielverzeichnis verschieben
lf.WriteLine(quelle & alt & " >>> " & ziel & ONR & zielpfad & fn) 'Wenn der Ordner existiert wurde die Datei verschoben + protokolliert
end if
end if
Next
lf.Close 'Logdatei schließen 
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 138998
Url: https://administrator.de/contentid/138998
Printed on: April 18, 2024 at 13:04 o'clock
10 Comments
Latest comment
Hi Tuski,
das passt schon ganz gut. Was noch nicht ganz will ist das mit dem Voreinstellen des Startordners. Wenn ich den Code genau so übernehme wird immer "Eigene Dateien" als Startordner angezeigt. Ich habe da etwas probiert und krieg das nicht hin. Hast du mir vielleicht noch einen Tip wie die Pfadangabe für den Startordner zu erfolgen hat. Das mit dem Rootverzeichnis habe ich durchschaut, doch es änder sich da auch nichts, was für mich aber nicht problematisch ist.
Gruß Joni
das passt schon ganz gut. Was noch nicht ganz will ist das mit dem Voreinstellen des Startordners. Wenn ich den Code genau so übernehme wird immer "Eigene Dateien" als Startordner angezeigt. Ich habe da etwas probiert und krieg das nicht hin. Hast du mir vielleicht noch einen Tip wie die Pfadangabe für den Startordner zu erfolgen hat. Das mit dem Rootverzeichnis habe ich durchschaut, doch es änder sich da auch nichts, was für mich aber nicht problematisch ist.
Gruß Joni
Hallo joni2000de,
als Startordner kannst du einfach den Pfad angeben. In dem obigen Link und davon bastlas Script
schreibst du einfach:
anstelle der "17"
Gruss
Tsuki
als Startordner kannst du einfach den Pfad angeben. In dem obigen Link und davon bastlas Script
schreibst du einfach:
StartOrdner = "C:\" StartOrdner = "17"
Dann öffnet er da, wo du möchtest.Gruss
Tsuki
... und wenn wir schon bei meinen "Jugendsünden" sind - für den Fall, dass der Auswahldialog abgebrochen wird, sollte auch noch vorgesorgt werden - daher etwa so:
Grüße
bastla
AuswahlTitel = "Bitte Ordner auswählen"
StartOrdner = "C:\"
Set Auswahl = CreateObject("Shell.Application").BrowseForFolder(0,AuswahlTitel,16,StartOrdner)
If TypeName(Auswahl) = "Nothing" Then
MsgBox "Abbruch gewählt!"
WScript.Quit
Else
Set Ordner = Auswahl.Self
WScript.Echo Ordner.Path
End Ifbastla
OK so weit so gut. Ich bin wieder etwas weiter, doch ganz habe ich den Syntax noch nicht durchschaut.
Kann mir hier nochmal jemand auf die Sprünge helfen.
BrowseForFolder(0,AuswahlTitel,16,StartOrdner)
0 steht für ??
AuswahlTitel ist klar
16 steht für ?? => müsste doch der Startordner sein => Zahlen werden akzeptiert Pfadangaben nicht, aber es ändert sich nichts
StartOrdner ist doch der rootordner ?? => alles was darunter liegt wird nicht angezeigt, was darüber liegt schon => das wird auch übernommen
Ich hätte gerne, dass zB in C:\temp gestartet wird aber in der Auswahl der ganze Baum des Arbeitsplatzes (oder zB ab C:\) zur Verfügung steht, so dass ich ggfl. mich auch im Baum nach unten bewegen kann.
Gruß Joni
Kann mir hier nochmal jemand auf die Sprünge helfen.
BrowseForFolder(0,AuswahlTitel,16,StartOrdner)
0 steht für ??
AuswahlTitel ist klar
16 steht für ?? => müsste doch der Startordner sein => Zahlen werden akzeptiert Pfadangaben nicht, aber es ändert sich nichts
StartOrdner ist doch der rootordner ?? => alles was darunter liegt wird nicht angezeigt, was darüber liegt schon => das wird auch übernommen
Ich hätte gerne, dass zB in C:\temp gestartet wird aber in der Auswahl der ganze Baum des Arbeitsplatzes (oder zB ab C:\) zur Verfügung steht, so dass ich ggfl. mich auch im Baum nach unten bewegen kann.
Gruß Joni
Hallo joni2000!
Ich nehme mal an, Du lebst in China - da ist es vermutlich gerade etwas schwieriger, (über Google) an Infos zu kommen; deshalb zwei Direkt-Links:
Shell.BrowseForFolder Method
Using the Browse For Folder Dialog Box
Damit sollte sich der Wert 16 (oder &H10) ebenso klären lassen wie die Tatsache, dass StartOrdner tatsächlich für "Root" steht ...
Grüße
bastla
Ich nehme mal an, Du lebst in China - da ist es vermutlich gerade etwas schwieriger, (über Google) an Infos zu kommen; deshalb zwei Direkt-Links:
Shell.BrowseForFolder Method
Using the Browse For Folder Dialog Box
Damit sollte sich der Wert 16 (oder &H10) ebenso klären lassen wie die Tatsache, dass StartOrdner tatsächlich für "Root" steht ...
... so dass ich ggfl. mich auch im Baum nach unten bewegen kann.
Alternativen (zT BS-abhängig) findest Du noch in VBS - Datei auswählen ...Grüße
bastla
Hi bastla,
China wäre vermutlich schon mal eine Reise wert. Mal sehen wer da den längeren Atem hat Google oder die Chinesen.
Ich war schon fleißig am lesen. Aber es hat anscheinend noch nicht gereicht
Dank deiner Links ist mir der Rest auch klar.
Was ich aber immer noch nicht gefunden habe ist eine Lösung mit der ich den Startordner vorgeben kann (frei definiert) und root auf Arbeitsplatz belassen. Das scheint nur sehr aufwändig umzusetzen zu sein.
Ich werde die Ordner ohne Vorgabe auswählen.
Nochmal danke für deine Unterstützung.
Gruß Joni
China wäre vermutlich schon mal eine Reise wert. Mal sehen wer da den längeren Atem hat Google oder die Chinesen.
Ich war schon fleißig am lesen. Aber es hat anscheinend noch nicht gereicht
Dank deiner Links ist mir der Rest auch klar.
Was ich aber immer noch nicht gefunden habe ist eine Lösung mit der ich den Startordner vorgeben kann (frei definiert) und root auf Arbeitsplatz belassen. Das scheint nur sehr aufwändig umzusetzen zu sein.
Ich werde die Ordner ohne Vorgabe auswählen.
Nochmal danke für deine Unterstützung.
Gruß Joni
Hallo joni2000de,
gut, dass du deinen Script fertig hast.
Nur mal so am Rande:
Die Chinesen "atmen" schon länger chinesiche Luft, als Google Mitglieder hat
Gruss
Tsuki
gut, dass du deinen Script fertig hast.
Nur mal so am Rande:
Mal sehen wer da den längeren Atem hat Google oder die Chinesen.
Die Chinesen "atmen" schon länger chinesiche Luft, als Google Mitglieder hat
Gruss
Tsuki
[OT]
Moin Tsuki San,
Na ja...." schon länger "muss nicht positiv sein....
Es ging doch nicht um die Frage, wer den frischeren Atem hat, oder?
Oder wer mehr heiße Luft produziert?
Oder wo gerade mehr dicke Luft ist?
na, ich höre mal lieber auf, bevor mir die Luft ausgeht...
Grüße
Biber
[/OT]
Moin Tsuki San,
Na ja...." schon länger "muss nicht positiv sein....
Es ging doch nicht um die Frage, wer den frischeren Atem hat, oder?
Oder wer mehr heiße Luft produziert?
Oder wo gerade mehr dicke Luft ist?
na, ich höre mal lieber auf, bevor mir die Luft ausgeht...
Grüße
Biber
[/OT]
Hallo Biber,
Botschaft ist angekommen.
Aber irgendwie konnt' ich's mir nicht verkneifen. Sorry!
Gruss
Tsuki
Botschaft ist angekommen.
Aber irgendwie konnt' ich's mir nicht verkneifen. Sorry!
Gruss
Tsuki
