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

VBS: Ordner erstellen!

Mitglied: Yannosch

Yannosch (Level 2) - Jetzt verbinden

08.10.2013 um 08:37 Uhr, 2254 Aufrufe, 6 Kommentare

Guten Morgen liebe Community !

Ich möchte einen neuen Ordner in ein bereit bestehendes Verzeichniss erstellen, sprich:



Dim objFSO, newDIR
Ziel= InputBox ("Gebe den Pfad an indem der persönliche Ordner des Users angelegt werden soll!")
Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.Folderexists(ziel) = false then
Set newDIR = objFSO.CreateFolder(ziel)
end if

Das Script wird ohne Fehlermeldung ausgeführt allerdings wird kein Ordner erstellt , wo liegt mein Fehler hier ?!

Liebe Grüße von
Y@nnosch!
Mitglied: colinardo
08.10.2013 um 08:47 Uhr
hast du zufällig den Pfad mit einem Backslash beendet ? wenn ja nimm diesen mal raus...

Grüße Uwe
Bitte warten ..
Mitglied: Yannosch
08.10.2013 um 08:53 Uhr
Nein , alles richtig beendet ... allerdings habe ich auch kein Plan , wo dort der Name des Ordners festgelegt wird ... weiß das system dann überhaupt welchen Ordner, bzw welchen namen es vergeben muss ....
Bitte warten ..
Mitglied: Yannosch
08.10.2013, aktualisiert um 09:16 Uhr
[Update] : Danke Uwe, auf dich war wiedermal verlass !

Habe den Fehler selbst gefunden, aber vielen Dank für die Basis die du mir wiedereinmal geschaffen hast ....

Liebe Grüße ...

Ach ja .. noch eine frage ..
Hier der Code:

~Es gibt noch ein Array names Felder(0) <--- Dieses Array enthält beispielsweise den Username~

Dim objFSO, newDIR
Ziel= InputBox ("Gebe den Pfad an indem der persönliche Ordner des Users angelegt werden soll!")


Pfad = Ziel + "\" + Felder(0) <------------------------------ Das was hier steht will ich erreichen , aber ich denke so einfach klappt das nicht...


Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.Folderexists(Pfad) = false then
Set newDIR = objFSO.CreateFolder(Pfad)
else
MsgBox "Ordner existiert bereits!", vbexclamation
end if
Bitte warten ..
Mitglied: colinardo
08.10.2013, aktualisiert um 09:50 Uhr
Zitat von Yannosch:
~Es gibt noch ein Array names Felder(0) <--- Dieses Array enthält beispielsweise den Username~

Dim objFSO, newDIR
Ziel= InputBox ("Gebe den Pfad an indem der persönliche Ordner des Users angelegt werden soll!")
Pfad = Ziel + "\" + Felder(0) <------------------------------ Das was hier steht will ich erreichen , aber ich
denke so einfach klappt das nicht...
warum nicht? wenn das Array korrekt mit Daten gefüllt ist und keine Sonderzeichen die nicht in einem Pfadnamen vorkommen dürfen enthält, geht es genau so (nur die "+" musst du durch ein "&" ersetzen).
01.
Felder(0) = "Sepp Meier" 
02.
Pfad = Ziel & "\" & Felder(0)
Würde hier aber auf einen FolderBrowserDialog ausweichen, das ist zuverlässiger ...
01.
Set objShell = CreateObject("Shell.Application") 
02.
Set objFolder = objShell.BrowseForFolder(0,"Ordner wählen",0) 
03.
If Not objFolder Is Nothing Then 
04.
	If objFolder.Self.Path <> "" Then 
05.
		MsgBox objFolder.Self.Path 
06.
	End If 
07.
End If
Und bitte formatiere deine Codezeilen in Zukunft, damit uns hier nicht wichtige Zeichen abhanden kommen, merci.
Bitte warten ..
Mitglied: sysinfo
08.10.2013 um 09:39 Uhr
Hallo Yannosch,

ich würde bei Strings immer mit dem " & " arbeiten. Ich finde es eindeutiger bei Strings.

Pfad = Ziel & "\" & Felder(0)

Siehe hier:

http://msdn.microsoft.com/de-de/library/te2585xw%28v=vs.90%29.aspx

Du beschreibst leider nicht wie das Array gefüllt wird. Stehen die richtigen Werte in dem Array?

Grundsätzlich sollte dein Script laufen.

Du solltest dich mal mit "folder browser" beschäftigen

http://www.robvanderwoude.com/vbstech_ui_browsefolder.php

oder

http://msdn.microsoft.com/en-us/library/windows/desktop/bb774065%28v=vs ...

Bei einem Dialog kann man sich nicht verschreiben. Bei deiner Lösung wird es sicherlich zu Schreibfehlern in dem Pfadangaben kommen.

//Stephan
Bitte warten ..
Mitglied: Yannosch
08.10.2013, aktualisiert um 09:57 Uhr
okay , läuft , danke dir Uwe ! !
und dir auch Stephan , schaue mir die Seiten auf jedenfall mal an ..!

Liebe Grüße von
Y@nnosch!
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VBS Ordner erstellen - wenn nicht vorhanden!

gelöst Frage von freshman2017VB for Applications1 Kommentar

Hallo, ich würde gerne einen Ordner erstellen, wenn dieser nicht vorhanden ist, nachfolgende VBS funktioniert Ich würde jedoch mit ...

Batch & Shell

Geplante Aufgabe erstellen - VBS

gelöst Frage von kontextBatch & Shell9 Kommentare

Hallo Leute, Hallo Programmier-Profis :-) :-D Ich arbeite zur Zeit an einem kleinen VB-Script und bin nun auf eine ...

Batch & Shell

Alle Dateien mit den gleichen Namen via VBS oder Batch in den jeweiligen Ordner kopieren(erstellen)

gelöst Frage von WeezytBatch & Shell5 Kommentare

Moin Leute, ich bräuchte einen Skript (VBS oder Batch), mit der ich einen Ordner für einzelne Dateien erstellen kann. ...

Batch & Shell

Verknüpfung aus CMD herraus erstellen (ohne VBS)

gelöst Frage von metal-shotBatch & Shell2 Kommentare

Hallo Ich versuche mich an einer batch zur Vorbereitung vieler PCs. Und zwar möchte ich diverse Portable Porgramme vom ...

Neue Wissensbeiträge
Microsoft

Neuigkeiten zu Server und Office 365 was läuft mit was und was nicht

Tipp von AlFalcone vor 1 TagMicrosoft2 Kommentare

Server Betriebssysteme auf dem die verschiedenen Offices nicht supported sind: • Office 365 ist und wird nicht supported auf Windows ...

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 1 TagSpeicherkarten1 Kommentar

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 1 TagSicherheit

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Hardware

100.000 Mikrotik-Router ungefragt von Hacker abgesichert

Information von 7Gizmo7 vor 1 TagHardware1 Kommentar

Hallo zusammen, da hier ja öfters mal von Mikrotik gesprochen wird. Trotz Updates klafft eine Sicherheitslücke in Hundertausenden Mikrotik-Routern. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
EuGH-Urteil - Internetanschluss für die ganze Familie - Filesharer haften trotzdem
Frage von StefanKittelSicherheitsgrundlagen38 Kommentare

Hallo, In diesem Artikel geht es darum, dass Jemand aus der Familie ein Hörbuch illegal hochgeladen hat. Der Vater ...

Apple
MacBook Pro 2018 mit 8 GB oder 16 GB
Frage von SysAdm81Apple25 Kommentare

Hallo zusammen, ich steh vor der Überlegung mir ein MacBook Pro 13 (2018) zu kaufen. Bzgl. SSD habe ich ...

Off Topic
SysAdmin im öffentlichen Dienst - jemand Erfahrungen?
Frage von JohnDorianOff Topic19 Kommentare

Hallo zusammen, hat jemand Erfahrung wie es so ist als SysAdmin im öffentlichen Dienst (Landkreis) im Südwesten der Republik ...

Datenbanken
MS SQL DB-Daten archivieren?
gelöst Frage von SchelinhoDatenbanken16 Kommentare

Hallo zusammen! Ich habe eine Anwendung, welche MSSQL (SQL Server 2014 SP2) nutzt. Auf der DB-Instanz laufen diverse Datenbanken. ...