save RichTextBox

• • Reply

  14 years ago

  by Bodoora_7

  B

  , Bahrain

  Joined 14 years ago

  Hi everyone...
  I used the below code for save, it work but if I reload the file and make chang in RichTextBox1 and save it with the same name,I have problem it is the fist file (NotePade) save in it what have in RichTextBox2 and the second file is empty. 
   
  
  

  With CommonDialog1
          .CancelError = True
          .Filter = "Text files (*.txt)|*.txt"
          .DialogTitle = "Save the file..."
          .ShowSave
              If .filename <> "" Then
                 RichTextBox1.SaveFile .filename, rtfText
                 RichTextBox2.SaveFile Left(.filename, Len(.filename) - 4) & "first.txt", rtfText
                
              End If
      End With
  
  
  
  
  
  
  
  
  
  

  
  So how can I correct this problem?
  
  
  

  Report abuse
• • Reply

  14 years ago

  by Bodoora_7

  B

  , Bahrain

  Joined 14 years ago

  Thanks...

  I know the problem.

  Regards

  Bodoora

  Report abuse