VBS zum Speichern von Dateien

Persönliche Seite #3981286
Lesenswert?

Aha. Nun, das ist nicht ganz einfach; Du musst herausfinden, wie Du per 
Automation Windows bzw. ein darunter installiertes Programm dazu 
bekommst, den Datei-speichern-unter-Dialog anzuzeigen.

Das Resultat in eine Datei zu schreiben ist hingegen trivial.

Die Laufzeitumgebung von VBS (der "Windows Scripting Host", cscript.exe 
bzw. wscript.exe) sieht selbst keine Möglichkeit vor, auf GUI-Elemente 
und -Dialoge zuzugreifen, wscript.exe kann lediglich einfache 
Messageboxen erzeugen, die aber nur einen Text und einen OK-Knopf 
enthalten.

Der Weg jedenfalls ist nicht einfach:

http://stackoverflow.com/questions/4386124/how-can-i-use-the-common-save-as-dialog-from-vbscript
OP #3981304
Lesenswert?

Rufus Τ. Firefly schrieb:
> Die Laufzeitumgebung von VBS (der "Windows Scripting Host", cscript.exe
> bzw. wscript.exe) sieht selbst keine Möglichkeit vor, auf GUI-Elemente
> und -Dialoge zuzugreifen, wscript.exe kann lediglich einfache
> Messageboxen erzeugen, die aber nur einen Text und einen OK-Knopf
> enthalten.

Doch, mann Kann mit wscript.exe Dialog-Boxen erzeugen
Hat nicht jemand einen Code dafür mit einer Anderen Programmier Sprache?
OP #3981358
Lesenswert?

Ich will in einem Selbstgebauten Programm
eine einfache Möglichkeit, eine Festplatte
auszuwählen,auf der Festplatte soll eine Config.txt gespeichert werden:
Mir geht es darum das Ich den Wert in einer TXT speichern kann.
die Programmier Sprache dabei ist mit egal, VBS ist leichter zu 
verändern.
OP #3981463
Lesenswert?

Ich habe einen Code!
MsgBox BrowseForFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.CreateTextFile("c:\users\Jakob\Desktop\Testdatei.txt ", 
TRUE)
MyFile.Close
Function BrowseForFile()
    Dim shell : Set shell = CreateObject("Shell.Application")
    Dim file : Set file = shell.BrowseForFolder(0, "Choose a file:", 
&H4000)
    BrowseForFile = file.self.Path
End Function

  Set MyFile = FSO.OpenTextFile("c:\users\Jakob\Desktop\Testdatei.txt", 
8)
  MyFile.WriteLine (BrowseForFile)
        MyFile.WriteLine ("Ende")
MyFile.Close

aber er öffnet 2 mal das Fenster:
wie bekomme ich das weg?
das erste fenster macht nichts
nur das 2te schreibt
Gast #3981573
Lesenswert?

Jakob P. schrieb:
>Es soll den Pfad in eine TXT-Datei Schreiben.


dir /s /b /a-d > c:\users\Jakob\Desktop\Testdatei.txt


Damit werden alle Dateinamen mit Pfadangabe
aus allen Ordnern und Unterordnern
in Testdatei.txt gespeichert. Wenn du diese
Befehlszeile in eine *.bat datei schreibst
sparst du auch noch Tiparbeit beim Aufruf.

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren