Hier is de code om leeg tekstdossier (becommentari�ër enkel uit de lijnen voor het toevoegen van tekst, en voeg de Runtime van lidstaten Scripting bibliotheek aan uw verwijzingen VBA toe) te creëren
Van hier:
http://www.ozgrid.com/forum/showthread.php?t=58283&page=1Sub WriteTextFile ()
'Schrijvend een tekstdossier die het Voorwerp van het Systeem van het Dossier in VBA gebruiken
'Deze code vereist een verwijzing (in de Hulpmiddelen VBE > de Verwijzingen) naar Runtime van Microsoft Scripting
Schemerige FSO als FileSystemObject
Schemerige FSOFile als TextStream
Schemerige FilePath als Koord
Schemerige NoOfLoop als Geheel
FilePath = „c:\WriteTest.txt“ 'leidt tot een test.txt dossier of verandert dit
Vastgesteld FSO = Nieuwe FileSystemObject
'opent dossier schrijven binnen wijze
Vastgestelde FSOFile = FSO.OpenTextFile (FilePath,
Ware 2,)
''lijn om het toevoegen van lijnen
'Voor NoOfLoop = 1 tot 10
''schrijf hier uw code
'FSOFile.WriteLine („ik schrijf lijn“ & NoOfLoop)
'Volgende NoOfLoop
FSOFile.Close
Sub van het eind
Opnieuw, bewapend met elk van deze kennis, ben ik zeker u uw systeem kunt maken werken zoals gespecificeerd.
; -)
JeffCoachman