Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Entwicklung VB for Applications

GELÖST

VBS - Ordner in lokales Verzeichnis kopieren bzw. überschreiben

Mitglied: vandeRichard

vandeRichard (Level 1) - Jetzt verbinden

04.03.2009, aktualisiert 09:56 Uhr, 14065 Aufrufe, 4 Kommentare

Hey,
bin ein absoluter Neuling in VBS. Vielleicht könnt ihr mir weiterhelfen!?

Ich möchte einen Ordner vom Server in ein lokales Verzeichnis kopieren. Soweit ist alles ok. Skript läuft während des Logon, da halt alle User (unterschiedliche Anmeldenamen) diesen Ordner benötigen, kann ich im Skript leider nicht ein bestimmtes Verzeichnis anlegen (C:\Documents...\"userMAX"\hier her kopieren.


Call Ast

Sub Ast
????????????????????????????????????%USERPROFILE%--->bestimmen?????????????
????????????????????????????????????
'ZielOrdner existenz überprüfen und ggf. erstellen
set fs = CreateObject("Scripting.FileSystemObject")
if NOT fs.folderexists("%USERPROFILE%\Desktop\Templates") then
set folder = fs.createfolder("%USERPROFILE%\Desktop\Templates")
end if
'Ordner vom Server auf PC kopieren(true=überschreiben Zielordner)
fs.copyfolder "\\server\ordner\ordner1\ordner2", "%USERPROFILE%\Desktop\Templates",true
End Sub

Leider weiß ich nicht wie ich USERPROFILE bestimmen soll.

Könnt ihr mir bitte weiterhelfen!?

Vielen Dank und Grüße...
Mitglied: rubberduck
04.03.2009 um 10:18 Uhr
01.
Set objShell = WScript.CreateObject("WScript.Shell"
02.
Wscript.Echo objShell.ExpandEnvironmentStrings("%USERPROFILE%")
Müsste eigentlich genau das sein, was Du suchst.

gruss
rubberduck
Bitte warten ..
Mitglied: vandeRichard
04.03.2009 um 10:27 Uhr
Hey,
es erscheint kein Fehler mehr, aber eine Meldung mit dem Pfad die ich mit ok bestätigen muss.

Fehlt nach der zweiten Zeile nicht was???
Bitte warten ..
Mitglied: rubberduck
04.03.2009 um 10:47 Uhr
Du bist wirklich ein Neuling

01.
wscript.echo
ist die ausgabe. Wenn Du Dein Script doppelklickst oder im CMD mit WSCRIPT laufen lässt, gibt es eine Ausgabe (ähnlich MSGBOX), oder mit CSCRIPT eine Ausgabe in der Console.
(Jetzt nur nicht Ohnmächtig werden... )

Um Deine ursprüngliche Frage gecoded zu beantworten:

01.
Call Ast 
02.
 
03.
Sub Ast 
04.
 
05.
'ZielOrdner existenz überprüfen und ggf. erstellen 
06.
set fs = CreateObject("Scripting.FileSystemObject"
07.
Set objShell = WScript.CreateObject("WScript.Shell")  
08.
if NOT fs.folderexists(objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates") then 
09.
set folder = fs.createfolder(objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates"
10.
end if 
11.
'Ordner vom Server auf PC kopieren(true=überschreiben Zielordner) 
12.
fs.copyfolder "\\server\ordner\ordner1\ordner2", objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates",true 
13.
End Sub
Ist zwar ungetestet, müsste aber funktionieren...
Geht?
Bitte warten ..
Mitglied: vandeRichard
04.03.2009 um 11:28 Uhr
Vielen Dank................................................................................................ ;)
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Ordner von einem Verzeichnis in ein anderes Verzeichnis kopieren und Datei-Name verändern
gelöst Frage von gudboyBatch & Shell15 Kommentare

Ich habe ein "Verzeichnis A" mit Ordner. Die Ordner haben immer eine "F-Nummer" und einen Titel wie z.B. " ...

Windows Tools
Batch Verzeichnis vergleichen, in einer anderes kopieren
Frage von cappu25Windows Tools11 Kommentare

Halloo an alle, ich habe jetzt schon verdammt lange rumprobiert und gegooglet aber ich bekomme keine Lösung hin. Folgendes: ...

IDE & Editoren
Lokales Verzeichnis wird in Netbeans nicht angezeigt
Frage von diwaffmIDE & Editoren

Hi Leute, ich habe ein php-Projekt in Netbeans, das mittels SVN zwischen verschiedenen Rechnern aktuell gehalten wird. Auf einem ...

Batch & Shell
Anhand des Filename in Verzeichnis kopieren
Frage von rudolfkBatch & Shell3 Kommentare

Ich ersuche um Hilfe! Komme aus der BI-Umgebung und habe mit der Batch-Programmierung leider keine Erfahrung. Jetzt sollte ich ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...

Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall9 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen8 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...