Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

OrdnerInhalt per VBS in frei definierbaren Ordner kopieren

Frage Entwicklung VB for Applications

Mitglied: koluschkiB

koluschkiB (Level 1) - Jetzt verbinden

07.05.2010 um 10:38 Uhr, 7341 Aufrufe, 3 Kommentare

Morgen Admins, häng mal wieder fest

Ich bin dabei ein Script zu schrieben, was ermöglich einen freidefinierbaren Ordnerinhalt in einen anderen (freidefinierbaren) Ordner zu kopieren, im anschluss wird der neu angelegte ordner im netzwerk freigegeben
Aber leider scheitert es, daran das der Inhalt nicht kopiert wird, kriege Syntaxerror, was daraus schließen lässt dass der befehlt denn ich gefunden habe und verwende falsch ist.

vielleicht hat einer von euch ne lösung für das problem. schaut mal denn Quelltext mal an, vielleicht erkennt ihr irgendwelche anderen fehler dazu. für lösungsvorschläge und ggf. verbesserungsvorschläge stehe ich offen gegenüber

01.
 
02.
'Variablen werden deklariert 
03.
dim fd, fs, a, x, f1 
04.
'Benötigte Objekte für die Netzwerkfreigabe 
05.
dim objFSO, objWMIService, objNewShare 
06.
 
07.
'Objekt für die Überprüfung, ob Ordner Existiert 
08.
set fd = CreateObject("Scripting.FileSystemObject") 
09.
 
10.
'Eingabebox Quellverzeichnis 
11.
x = inputbox("Gib Quellverzeichniss an! bsp. c:\bla") 
12.
'Wenn Datei nicht Existiert dann MsgBox mit hinweis! 
13.
if not fd.folderexists (""& x) Then 
14.
Yantwort = msgbox ("Die Ordner Existiert nicht!", vbOkCancel + vbQuestion, "Was tun?") 
15.
	 
16.
	'Wenn Antwort Ok, dann Quellverzeichnis Neueingabe 
17.
	if Yantwort = vbOK Then 
18.
	x = inputbox("Gib Quellverzeichniss an! bsp. c:\bla") 
19.
	End If 
20.
	 
21.
'Einagabebox Zielverzeichnis 
22.
a = inputbox("Gib den Namen des Ordners an!") 
23.
 
24.
'Objekte werden erstellt 
25.
set fs = CreateObject("Scripting.FileSystemObject") 
26.
'Variable der zu kopierenden Datei 
27.
Set CF = CreateObject("Scripting.FileSystemObject") 
28.
'Objekt zum löschen des vorhandenen Ordners 
29.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
30.
 
31.
'Wenn abfrage, wenn der Ordner existiert, wie vorgehen 
32.
	if fs.folderexists ("d:\"& a) Then 
33.
	antwort = MsgBox("Der Ordner """ &a& """ Existiert bereits!" & vbCR & VbCR &_ 
34.
	"Ja = Vorhandenen Ordner Löschen und neuen anlegen!" & vbCR & vbCR &_ 
35.
	"Nein = Weiter Möglichkeiten!" & vbCR & vbCR & _ 
36.
	"Abbrechen = Is klar, ne?!", vbYesNoCancel + vbQuestion, "Was tun?") 
37.
	 
38.
	'Wenn Abfrage, wenn Antwort "JA", dann alten Ordner löschen, Neuen erstellen und Daten kopieren 
39.
		if antwort = vbYes Then 
40.
		objFSO.DeleteFolder("d:\" & a) 
41.
		fs.createfolder("d:\" & a) 
42.
		CF.CopyFile ""&x, "d:\" & a & "\" 
43.
		msgbox "Alter Ordner weg, Neuer Ordner """ &a& """ da incl. Dateien und im Netz freigeben!" 
44.
		'Wenn "NEIN", dann weiter Möglichkietn. Namen neu eingeben, In bestehenden Ordner alles Kopieren 
45.
		elseif antwort = vbNo Then 
46.
		Xantwort = msgbox("Abbrechen = Is klar, ne?!"& vbCR & vbCR & _ 
47.
		"Wiederholen = Zurück zur Inputbox und neuen Namen angeben" & vbCR & vbCR & _ 
48.
		"Ignorieren = Namenseingabe Ignorieren und Daten ins bestehenden Verzeichnis kopieren und im Netz freigeben", _ 
49.
		vbAbortRetryIgnore + vbExclamation, "Was nun?") 
50.
		End If 
51.
			 
52.
			'Wenn Abfrage bei weiteren Möglichkeiten. Wenn "JA", neuen Namen für Ordner eingeben, Ordner erstellen und Daten kopieren 
53.
			if Xantwort = vbRetry Then 
54.
			a = inputbox("Gebe den Namen des Ordners an!") 
55.
			fs.createfolder("d:\" & a) 
56.
			CF.CopyFile ""&x, "d:\" & a & "\" 
57.
			msgbox "Der neue Ordner """ &a& """ wurde angelegt und Dateien kopiert und im Netz freigeben!" 
58.
			'Bei "NEIN", Daten in vorhanden Ordner rein Kopieren 
59.
			elseif Xantwort = vbIgnore Then 
60.
			CF.CopyFile ""&x, "d:\" & a & "\" 
61.
			msgbox "Dateien wurden in den vorhandenen Ordner """ &a& """ kopiert und im Netz freigeben!" 
62.
			End If 
63.
 
64.
'Wenn Ordner nicht Vorhanden, Neuen erstellen und Daten Kopieren 
65.
else 
66.
fs.createfolder("d:\" & a) 
67.
CF.CopyFile ""&x, "d:\" & a & "\" 
68.
msgbox "Der Ordner """ &a& """ wurde angelegt und Dateien kopiert und im Netz freigeben!" 
69.
 
70.
End If 
71.
 
72.
'Konstanten für Netzwerkfreigabe, zulässige gleichzeitige Zugriffe 
73.
Const FILE_SHARE = 0 
74.
Const MAXIMUM_CONNECTIONS = 25 
75.
 
76.
'Name des PC wird aus der Registry rausgelesen 
77.
strComputer = "." 
78.
 
79.
'Verbidnung mit WMI wird hergestellt 
80.
Set objWMIService = GetObject("winmgmts:" _ 
81.
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
82.
 
83.
'Ordner wird freigegeben, Freigabe name, ist der Ordnername, Kommentar "Meine Freigabe" wird in Eigenschaften eingetragen 
84.
Set objNewShare = objWMIService.Get("Win32_Share") 
85.
errReturn = objNewShare.Create _ 
86.
    ("d:\"& a, ""& a,  FILE_SHARE, _ 
87.
        MAXIMUM_CONNECTIONS, "Meine Freigabe") 
88.
 
89.
End If 
90.
 
hoffe einer von euch kann mir weiter helfen

gruß

koluschki
Mitglied: koluschkiB
07.05.2010 um 11:08 Uhr
hab eben noch festgestellt, dass irgendwo ein fehler ist. wenn man nämlich das quellverzeichniss angibt (was auch existirt) stopt das script und macht nichts mehr. wenn man aber einen falsches verzeichniss angibt, kommt der hinweis quelle existiert nicht, inputbox öffnet sich erneut, neueingabe des quellverzeichniss und anschließend öffnet sich die inputbox Zielverzeichniss, was bei der richtigen Quell eingabe, gar nicht kam

hoffe jemand kann mir helfen

gruß

koluschki
Bitte warten ..
Mitglied: dave114
07.05.2010 um 11:53 Uhr
morgen,

deinem Kommentar zu entnehemen ist das Thema anscheinend noch nicht gelöst?

Warum denn der Hacken?

mfg
David
Bitte warten ..
Mitglied: koluschkiB
07.05.2010 um 12:55 Uhr
weil die probs die ich hier erfragt habe, ich selbst gelöst habe.
sogar eindige fehler mehr entdeckt, wie zb das nur dateien kopiert wurde und nicht ordner und unterordner. problem gelöst.
hänge jetzt aber an einem anderem problem

hab nen neuen beitrag erstellt

danke

gruß

koluschki
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBS Ordner erstellen - wenn nicht vorhanden! (1)

Frage von freshman2017 zum Thema VB for Applications ...

Entwicklung
gelöst VBS: PDF Formular x-mal in Ordner kopieren und nach Liste umbenennen (1)

Frage von Juweee zum Thema Entwicklung ...

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

Frage von MmarKuss zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Seekrank bei Windows 10 (17)

Frage von zauberer123 zum Thema Windows 10 ...

Windows Server
gelöst Kopiervorgang schlägt fehl, weil Datei- und Ordnername zu lang sind (14)

Frage von Schroedi zum Thema Windows Server ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...