ник: час
Вот так бросить на рабочий стол и открыть
Dim STR_PATH
STR_PATH = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\PRICE.rtf"
RichTextBox1.SaveFile STR_PATH, rtfRTF
STR_PATH = Shell(GLB_PATCH_COMPONENTS & "wordpad.exe " & STR_PATH, 3)
|
Только вот рабочий стол может зваться по разному....