OpenOffice.info

Verfasst: **Fr, 24.08.2012 15:58**

Hallo Experten,
hier habe ich ein Problem mit der Laufwerksbezeichnung in einer Variablen, die ich mir nicht erklären kann

bisher:

Code: Alles auswählen

ThunderPfad = """D:\Mozilla Thunderbird\thunderbird.exe"""
if FileExists(strDoc) then
    strShell = ThunderPfad & "-compose " & "to=" & strAn & "," & "subject=" & strBetr & "," & "body=" & strBody & "," & "attachment=" & strDoc
    Call Shell(strShell, vbNormalFocu)
else
msgbox convertFromURL(strDoc),48," nicht vorhanden"
    strShell = ThunderPfad & "-compose " & "to=" & strAn & "," & "subject=" & strBetr & "," & "body=" & strBody
    Call Shell(strShell, vbNormalFocu)
end if

so sollte es werden,

Code: Alles auswählen

dim Lw as string
lw = mid(CurDir,1,2)

if lw = "E:" then
ThunderPfad = """D:\Mozilla Thunderbird\thunderbird.exe"""
else
ThunderPfad = "" & lw & "\PortableApps\ThunderbirdPortable\ThunderbirdPortable.exe"""
end if

aber (diese Versionen habe ich ausprobiert):

Code: Alles auswählen

ThunderPfad = lw & "\PortableApps\ThunderbirdPortable\ThunderbirdPortable.exe"			'fehler
ThunderPfad = "" & lw & "\PortableApps\ThunderbirdPortable\ThunderbirdPortable.exe"""  'fehler
ThunderPfad = "O:\PortableApps\ThunderbirdPortable\ThunderbirdPortable.exe"				'fehler
ThunderPfad = """O:\PortableApps\ThunderbirdPortable\ThunderbirdPortable.exe"""			'OK !!!!

fehler : Basic Laufzeitfehler - Datei nicht gefunden

Das Problem ist ja, daß nie sicher ist, welchen Laufwerk-Buchstaben der Stick auf einem anderen Rechner bekommt, also ist die Version, die klappt, nicht praktikabel.

Bitte helft mir auf die Sprünge.

gruß
sven-my

Problem gelöst Dank Frieder D.'s Homepage:

https://sites.google.com/site/starbasic ... -anhaengen

OpenOffice.info

[gelöst] Pfad zu Mail-Prg / Fehlermeldung

[gelöst] Pfad zu Mail-Prg / Fehlermeldung