Datei öffnen/speichern Dialog aufrufen

Auf unseren Produktivservern ist kein VisualBasic Editor installiert, daher funktioniert der VBA-Code auch nicht, mit dem man Dialogboxen zum Öffnen/Speichern von Dateien aufrufen kann (CreateObject("MSComDlg.CommonDialog")).
Nun meine Frage, gibt es innerhalb von Comos die angesprochenen Dialogboxen?
Es sind am Produktivserver natürlich auch die Microsoft-Programme installiert. Lässt sich da etwas machen?

Welche Codezeilen müsste ich verwenden, das der Öffnen/Speichern Dialog auf allen Rechnern funktioniert?

Mauggi

also das ist etwas kompliziert.

Generell gibt es am Workset den copyfile() Aufruf, der seine Arbeit auch mit aktiven Netlogin korrekt erledigt. Aber das Copyfile hat keine GUI, es hat einen Quellparameter, einen Zielparameter und einen driten Parameter für den Creationmode (Datei erstellen wenn nicht vorhanden ja / nein und andere Möglichkeiten )

Es wäre dann noch die Frage, wie man in Comos einen Dateiauswahldialog realisieren kann... beim Anlegen von Dokumentenobjekten hat Comos ja soetwas Ähnliches implementiert, vielleicht kann man sich an dem Stammobjekt bedienen und den Dialog für eigene Zwecke verwenden.

Nur sieht das irgnedwie hardcoded aus - neues Dokument anlegen, "allgemeines Dokument" als Typ, dann auf den Reiter "allgemeines Dokument" gehen, und voila da ist ein 3 Punkte-Button mit einem Dateiauswahldialog. Aber der Button mit den drei Punkten ist zwar in VB und in c# vorhanden (in neuren Comos Versionen ist das als c# / wpf gelöst) aber nicht in dem VB Script.

Ansonsten gab es ausschließlich in Windows XP ein direkt nutzbares VB Objekt,

CreateObject("SAFRCFileDlg.FileSave")

Quelle:

https://www.activexperts.com/admin/scripts/vbscript/1148​

in höheren Windows-Versionen hat das VB Runtime bzw VB Scripting Engine und VBA dieses Objekt nicht mehr. Dafür wird man mit so Nettigkeiten wie CDO (Email Funktionalität) und dem Scripting.Filesystem beglückt nur ist da kein direkt aufrufbarer Saveas oder OpenAs Dialog din, und .OpenTextFile geht auf Windows 10 nicht.

Hier mal ein Beispiel (auch aus einer externen Quelle)

SetoFSO = CreateObject("Scripting.FileSystemObject")
SetoShell = CreateObject("Shell.Application")
Path = oShell.BrowseForFolder(0,"Choose Folder",0,17).Items.Item.Path

Name = InputBox("Please Enter A FileName",,"FileName.txt")

IfPath <> "" And Name <> ""Then SetTextFile = oFSO.OpenTextFile(Path & Name,2,True)

'Write something in the file.

TextFile.WriteLine "My Save As..."

TextFile.Close

will man direkt eine Textdatei editieren, kann man von dem shell.application diese Methode verwenden:

SetobjShell = CreateObject("Shell.Application")

objShell.ShellExecute "notepad.exe", "d:\temp\temp.txt", "", "", 1