Saving Problem

[lavarock09]

Hi All,

I am saving text in a rich text box by using, drive lists, directory lists and a file list...

and i thought it all worked fine, until

when i tried to save a file in somewhere like, C:\Program Files\test1.rtf it worked, but When i go to C:\Program Files\Microsoft\test1.rtf

It saved it in C:\Program Files with the file name Microsofttest1.rtf

is there a way to fix this

Thanx

Lavarock09

[penagate]

Can you post your saving routine?

[lavarock09]

1. You Click Save
2. You Choose Your Drive, Then Directory
3.You Click Ok,
4. The Rich Text Box Shows The Text

Code For Save Form

Private Sub Command1_Click()
   Dim save1 As String
save1 = Dir1.Path & Text1.Text & ".rtf"
Form1.RichTextBox1.SaveFile (save1)
Unload Me
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub

[penagate]

Add this to your command1_Click

Private Sub Command1_Click()
    Dim save1 As String
    [hl]If Not (Right$(Dir1.Path, 1) = "\") Then
        save1 = Dir1.Path & "\" & Text1.Text & ".rtf"
      Else
        save1 = Dir1.Path & Text1.Text & ".rtf"
    End If[/hl]
    Form1.RichTextBox1.SaveFile (save1)
    Unload Me
End Sub

[lavarock09]

this is now my code

Private Sub Command1_Click()
   Dim save1 As String
   If Not (Right$(Dir1.Path, 1) = "\") Then
        save1 = Dir1.Path & "\" & Text1.Text & ".rtf"
      Else
        save1 = Dir1.Path & Text1.Text & ".rtf"
    End If
save1 = Dir1.Path & Text1.Text & ".rtf"
Form1.RichTextBox1.SaveFile (save1)
Unload Me
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub

And It Still Does The Same Thing

[penagate]

Sorry, I should have said replace the save1= line with that block. In your code now it sets save1 and then sets it back to what you had before so it's no different

Take out the save1 = line after the If block.

[lavarock09]

This Is Now My Code

Private Sub Command1_Click()
   Dim save1 As String
   If Not (Right$(Dir1.Path, 1) = "\") Then
        save1 = Dir1.Path & "\" & Text1.Text & ".rtf"
      Else
        save1 = Dir1.Path & Text1.Text & ".rtf"
    End If
Form1.RichTextBox1.SaveFile (save1)
Unload Me
End Sub
 
 
Private Sub Command2_Click()
Unload Me
End Sub

But Now When i Go To Load, It Gives A Debug Message And In The Loading Form It has the line

Form1.RichTextBox1.LoadFile (load1)

highlighted

the code around this is

Private Sub Command1_Click()
If Not Text1.Text = "" Then
Dim load1 As String
load1 = Text1.Text
Form1.RichTextBox1.LoadFile (load1)
Unload Me
Else
MsgBox ("No File Selected")
End If
End Sub

and the text box in the load form shows, C:\Program Filestefesgf.rtf instead of C:\Program Files\tefesgf.rtf

[penagate]

I'm not really sure why that would be.

Can you post your project? If you zip it up I'll take a look at it.

[lavarock09]

It Is Attached

[penagate]

OK. Some suggestions

• Use Option Explicit at the top of all your forms/modues to ensure you name your variabls and to catch typos
• Build with full compile and don't use background compile (Tools->Options->General) so that you catch all the bugs every time you run the app.
• Instead of making forms for everything, you can use the command dialog control to provide Windows' own Open/Save boxes, and you can use a MsgBox for the Yes/No/Cancel prompt.

That having been said, here's how to fix your problem from post #7:

Private Sub File1_Click()
Dim Path1 As String
Dim load1 As String
load1 = Text1.Text
Path1 = Dir1.Path
Text1.Text = Path1 [hl]& "\" &[/hl] File1.FileName
End Sub

[MartinLiss]

There are a buch of ocx's and a bas file missing from your zip file but I think this is your problem. Add the highlighted code to Form6.

Private Sub File1_Click()
Dim Path1 As String
Dim load1 As String
load1 = Text1.Text
Path1 = Dir1.Path
[HL="#FFFF80"]If Not (Right$(Dir1.Path, 1) = "\") Then
        Path1 = Dir1.Path & "\"
End If[/HL]
Text1.Text = Path1 & File1.FileName
 
 
End Sub

[lavarock09]

thanx now that works,

this isn't a problem but it makes it look nicer,

when i load a file from the directory C:\ on its own

it says in the textbox C:\\File1.rtf

is there a way to stop this,

but thanx for all your help!

[lavarock09]

THIS IS IN REPLY TO POST #10

thanx now that works,

this isn't a problem but it makes it look nicer,

when i load a file from the directory C:\ on its own

it says in the textbox C:\\File1.rtf

is there a way to stop this,

but thanx for all your help!x

Sorry For Double Posting

[MartinLiss]

Are you sure it still does because when I do it it doesn't.

[penagate]

Change it to

If (Right$(Path1.Path, 1) = "\") Then
    Text1.Text = Path1.Path & File1.FileName
  Else
    Text1.Text = Path1.Path & "\" & File1.FileName
End If