-> Hier kostenlos registrieren
Hallo,
an dieser Stelle erst einmal ein grosses Lob an dieses Forum. Man findet hier richtig viele Informationen und meisst bleiben die Chats auch sachlich und loesungsorientiert.
Da dies hier mein 1. Beitrag ist, stelle ich mich kurz vor:
Michael, 32, Oberschwaben, IBN'er (selbstst.).
Mein Problem:
Ich wuerde gerne ein Skript schreiben, welches es dem Benutzer ermoeglicht ein Dateibrowser zu Oeffnen, in welchem er einen neuen Dateinamen eingeben kann und dann eine neue (csv) Datei angelegt wird (welches mein Skript dann mit Daten fuellt).
Leider funktioniert folgende Funktion in Win7 nicht mehr (nur in WinXP):
("UserAccounts.CommonDialog")
Mit dieser Funktion wurde das Problem bisher so geloest:
...
Dim objDialog
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.InitialDir = "g:\FLASH\Datensaetze"
objDialog.Filter = "CSV (*.csv)|*.csv"
objDialog.FilterIndex = 0
objDialog.ShowOpen()
...
If fso.FileExists(path) = 0 Then
fso.CreateTextFile path, 0
...
PS:
Ich habe schon viel in diesem Forum und im Netz gesucht und es gibt auch viele Lösungen, aber immer nur welche, bei dem sich die zu im-oder exportierende Datei in einem festen Pfad (ohne Browserfunktion) befindet. Oder mit einer Browserfunktion, nur eine bereits bestehende Datei ausgewählt werden kann.
Vielen Dank im Vorraus fuer eure Hilfe!
Michael
an dieser Stelle erst einmal ein grosses Lob an dieses Forum. Man findet hier richtig viele Informationen und meisst bleiben die Chats auch sachlich und loesungsorientiert.
Da dies hier mein 1. Beitrag ist, stelle ich mich kurz vor:
Michael, 32, Oberschwaben, IBN'er (selbstst.).
Mein Problem:
Ich wuerde gerne ein Skript schreiben, welches es dem Benutzer ermoeglicht ein Dateibrowser zu Oeffnen, in welchem er einen neuen Dateinamen eingeben kann und dann eine neue (csv) Datei angelegt wird (welches mein Skript dann mit Daten fuellt).
Leider funktioniert folgende Funktion in Win7 nicht mehr (nur in WinXP):
("UserAccounts.CommonDialog")
Mit dieser Funktion wurde das Problem bisher so geloest:
...
Dim objDialog
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.InitialDir = "g:\FLASH\Datensaetze"
objDialog.Filter = "CSV (*.csv)|*.csv"
objDialog.FilterIndex = 0
objDialog.ShowOpen()
...
If fso.FileExists(path) = 0 Then
fso.CreateTextFile path, 0
...
PS:
Ich habe schon viel in diesem Forum und im Netz gesucht und es gibt auch viele Lösungen, aber immer nur welche, bei dem sich die zu im-oder exportierende Datei in einem festen Pfad (ohne Browserfunktion) befindet. Oder mit einer Browserfunktion, nur eine bereits bestehende Datei ausgewählt werden kann.
Vielen Dank im Vorraus fuer eure Hilfe!
Michael