Typenfehler bei MulktiSelect mit openFileName
susanne
ich habe mal ver sucht im OppenFileName Dialog die Multiselect -option zu aktivieren.
Funktioniert auch auf Anhieb,
aber wenn ich jetzt auf "abbrechen " klicke gibt es einen Typfehler
und das Script bricht ab.
Vorher mit MultiSelect=false war alles ok.
Bei "abbrechen" kommt ein boolean wert raus und
bei Makieren von Dateinen ein String-Array
vorher gab es nur einen String oder einen boolean-wert
Meine Variable hab ich al Object deklariert
mit Variant gibt es die gleichen Probleme
hier ein Codeausszug:
Dim FileLink, fs1 As Object
'Opendialog
FileLink = Application _
.GetOpenFilename(Filefilter:="Textdatei (*.txt), *.*", Title:="Bitte Dateien auswählen", _
MultiSelect:=True)
' If FileLink = False Then
' Error1 = MsgBox("Sie haben keine Datei ausgewählt , starten sie das Makro neu!", 0)
' GoTo Ende
' End If
If FileLink(1) "" Then....
Hat Jemand dazu eine Idee?
Danke
Susanne