SaveFileDialog

[Don Pasquale]

Hi Folks,
ich habe folgenden Code und bekomme einen
Variant does not contain a container,
wenn der User beim SaveFileDialog auf
abbrechen klickt.
Wie kann ich den folgenden Code verbessern ?
Ciao
Don Pasquale

Dim folder as Variant

folder = workspace.SaveFileDialog ( False, "Speichern unter ...",, TEMPVERZEICHNIS , o.source & ".tif")            

-> If folder(0) <> "" Then
                        Call o.ExtractFile( folder(0) )
End If

[Glombi]

Dim folder as Variant

folder = workspace.SaveFileDialog ( False, "Speichern unter ...",, TEMPVERZEICHNIS , o.source & ".tif")            

if IsArray(folder) then
 if folder(0) <> "" Then
                        Call o.ExtractFile( folder(0) )
 End If
End If


Andreas

[koehlerbv]

If not (IsEmpty (Folder)) then ...

HTH,
Bernhard

[Semeaphoros]

If not Isempty (Folder) Then
   if    **** Dein Code ****
   end if
end if

[Semeaphoros]

Wow, innerhalb von 41 Sekunden 3 Antworten  

[koehlerbv]

Aber an der 1'49'' bis zur ersten Antwort müssen wir noch arbeiten  

Bernhard

[Don Pasquale]

Ich fühle mich sowohl hocherfreut über die große Anteilnahme,
als auch tief beschämt aber darüber dass ich wohl was ziemlich banales gefragt haben muß


In jedem Falle gebührt Euch Dank

Ciao
Don Pasquale

[Semeaphoros]

Nööööö, that happens. Wie war das wieder mit dem Wald? Man sieht die Bäume ...... ?

[Don Pasquale]

Zur Info,
ich habe Glombis Lösung den Vorzug gegeben.
Ciao
Don Pasquale

[Semeaphoros]

Ja klar, die Lösungen sind absolut gleichwertig. Notes liefert häufig mehrere Wege

[Glombi]

Es ist gehopst wie gesprungen  

Andreas