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 Ordnerauswahl und Dateiauswahl mit Rückgabe des kompletten Pfades

Frage Entwicklung VB for Applications

Mitglied: 49443

49443 (Level 1)

02.07.2007, aktualisiert 18.10.2012, 19849 Aufrufe, 2 Kommentare

Hallo zusammen,

vielleicht kann mir jemand weiterhelfen.

In einem Script soll der "Ordnerauswahldialog" aufgehen in dem man eine Datei oder einen Ordner auswählen kann. Als Rückgabewert soll der komplette Pfad erscheinen + wenn eine Datei ausgewählt wurde, der Dateinamen.

01.
AuswahlTitel = "Bitte Datei oder Verzeichnis auswählen" 
02.
StartOrdner = "17"  'Arbeitsplatz 
03.
Set dateiauswahl = objappshell.BrowseForFolder(0,AuswahlTitel,16384,StartOrdner) 
04.
wscript.echo dateiauswahl

Derzeit wird mir nur der Name ohne Pfad ausgegeben.....

Gruß
Christian
Mitglied: bastla
02.07.2007, aktualisiert 18.10.2012
Hallo lauti1!

Dass Du mit dem von Dir geposteten Auswahldialog auch nur den Namen einer Datei erhältst, überrascht mich ...

Um zumindest eine Ordnerauswahl mit vollem Pfad durchzuführen, könnte das etwa so aussehen:
01.
AuswahlTitel = "Bitte Datei oder Verzeichnis auswählen" 
02.
StartOrdner = "17"  'Arbeitsplatz 
03.
Set Dateiauswahl = CreateObject("Shell.Application").BrowseForFolder(0,AuswahlTitel,16,StartOrdner) 
04.
Set Ordner = Dateiauswahl.Self 
05.
WScript.Echo Ordner.Path
Zum Thema Datei auswählen: http://www.administrator.de/forum/vbs-datei-ausw%c3%a4hlen-55751.html

Grüße
bastla
Bitte warten ..
Mitglied: 49443
02.07.2007 um 15:05 Uhr
Alles klar. Danke für die Hilfe!!

Funktioniert jetzt so wie ich mir das vorgestellt habe!
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Windows 7
gelöst Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen (2)

Frage von Ceejaay zum Thema Windows 7 ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...