.txt file schrijven

[gabber1]

Ik wil in VB6 een txt file schrijven, ik weet hoe dat moet ik gebruik deze code:

Open App.Path & ("/text1 en text2.txt") For Output As #1
Write #1, Text1.Text
Write #1, Text2, Text
Close #1

maar ik wil wil niet dat het file "text1 en text2.txt" in dezelfde map komt maar dat het in een andere map komt, dus heb ik zoiets gedaan

Open App.Path & ("D:\Documents and Settings\Mijn Naam\My Documents") For Output As #1

maar dat werkt niet, weet iemand hoe dit wel werkt ( graag VB6)

 

[ReneDirks]

App.path is het volledige path naar de applicatie, dus

Open App.Path & ("D:\Documents and Settings\Mijn Naam\My Documents") For Output As #1

Zal iets als c:\program files\..\d:\documets and settings" gaan bevatten. Dat kan dus niet.
Je kunt het wel als
Open "D:\Documents and Settings\Mijn Naam\My Documents\text1" For Output

 

[gabber1]

erg bedankt, in een recortijd beantwoord!!:thumb:

 

[ReneDirks]

Je kunt ook eens kijken naar een oplossing met het File Scripting Object doen.
Dan wordt het zoiets als
Microsoft Scripting Runtime toevoegen in project/references

  Dim fso As New FileSystemObject
  Dim ts As TextStream
  Set ts = fso.CreateTextFile("D:\Documents and Settings\Mijn Naam\My Documents\testfile.txt", True)  'true is om overschrijven te forceren
  ts.WriteLine "tekst in bestand"
  ts.Close
  Set fso = Nothing