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, 13624 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
IDE & Editoren
Lokales Verzeichnis wird in Netbeans nicht angezeigt

Frage von diwaffm zum Thema IDE & Editoren ...

Cloud-Dienste
WEB-Ordner als lokales Laufwerk mappen : IIS 7 mit WEBdav (6)

Frage von MeinGottWalter zum Thema Cloud-Dienste ...

Batch & Shell
gelöst Batch aktuellsten Ordner kopieren (2)

Frage von MmarKuss zum Thema Batch & Shell ...

Batch & Shell
gelöst Ordner anhand einer Excel-Liste kopieren (6)

Frage von xsto123 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Statische Routen mit Shorewall, ISC-DHCP Server konfigurieren für Android Devices (24)

Frage von terminator zum Thema LAN, WAN, Wireless ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

Windows Server
Exchange HyperV Prozessorlast (18)

Frage von theoberlin zum Thema Windows Server ...

Hardware
16-20 Port POE Switch mit VLAN (18)

Frage von thomasreischer zum Thema Hardware ...