Testar i gen ! Försöker styra ett gammalt dos program och skicka in text för att sedan få ut texten i en fil
dock utan större lycka
kod som jag har testat men utan framgång
Public Function sendkeyyycyk()
Dim sin As Variant

Dim returnvalue
returnvalue = Shell("c:\cykler\moving cdbas.dat -lt ,:=(Enter),:= ap.prn,:=(Enter),:=(Enter),:=(Enter)", 1)
'AppActivate returnvalue
'SendKeys "c:\cykler\moving cdbas.dat -lt :=(Enter),:= ap.prn", True
'SendKeys "ap.prn", True
'SendKeys "(~)", True
'SendKeys "ap.prn", True
'SendKeys "(~)", True
'SendKeys "(~)", True
'SendKeys "(~)", True
'SendKeys "(~)", True

'SendKeys "%(f4)", True

End Function

Vad gör jag för fel ?????????