Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

VBS - Ordner in lokales Verzeichnis kopieren bzw. überschreiben

Frage Entwicklung VB for Applications

Mitglied: vandeRichard

vandeRichard (Level 1) - Jetzt verbinden

04.03.2009, aktualisiert 09:56 Uhr, 13364 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 ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
IDE & Editoren
Lokales Verzeichnis wird in Netbeans nicht angezeigt

Frage von diwaffm zum Thema IDE & Editoren ...

Windows Tools
gelöst Tool um neue Dateien aus Ordner A EINMAL in Ordner B zu kopieren (6)

Frage von Archimedes zum Thema Windows Tools ...

Batch & Shell
gelöst Batch: Bilder (gewisse Nummern) vom Verzeichnis A in einen Ordner Kopieren (3)

Frage von sagula91 zum Thema Batch & Shell ...

Batch & Shell
Ordner erstellen ll Datei hinein kopieren (1)

Frage von heyalice zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...