Vba Kod İle Txt Dosyası Oluşturmak

1 2

Vba Kod İle Txt Dosyası Oluşturmak nasıl olur

Dim fso as Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim oFile as Object

Set oFile = FSO.CreateTextFile(strPath)

oFile.WriteLine "test" 

oFile.Close

Set fso = Nothing

Set oFile = Nothing

Sub CreateTextFileBasic()

    'Must add reference to Tools > References > Microsoft Scripting Runtime

    Dim fso As Scripting.FileSystemObject

    Dim Satir As Scripting.TextStream

    

    Set fso = New Scripting.FileSystemObject

    Set Satir = fso.CreateTextFile("C:\test\test.vcf", True)

    

        Satir.WriteLine "begin:vcard"

        Satir.WriteLine "BDAY;VALUE=DATE:" & "1957-09-21"

        Satir.WriteLine "N:" & "Stenerson;Derik"

        Satir.WriteLine "fn:" & "ramazan"

        Satir.WriteLine "TITLE:" & "vcf yaz"

        Satir.WriteLine "org:" & "accessmania"

        Satir.WriteLine "tel;TYPE=FAX:" & "5055811711"

        Satir.WriteLine "TEL;TYPE=WORK,FAX:" & "+1-425-936-7329"

        Satir.WriteLine "TEL;TYPE=WORK,MSG:" & "+1-425-936-5522"

        Satir.WriteLine "tel;cell;voice:" & "9999999999"

        Satir.WriteLine "tel;work;voice:" & "8888888888" '& (IIf(Not IsNull(Me!Dahili), " Dahili:" & Me![Dahili], ""))

        'Satir.WriteLine "adr;type=work:;;" & "Denizli" ' & ";" & Me![?ehir] & ";" & Me![Ylçe] & ";" & Me![Posta Kodu]

        Satir.WriteLine "ADR;TYPE=WORK,POSTAL,PARCEL:" & ";;One Microsoft Way;Redmond;WA;98052-6399;USA"

        Satir.WriteLine "email;internet:" & "eeeeeeee"

        Satir.WriteLine "EMAIL;TYPE=INTERNET:" & "deriks@microsoft.com"

        Satir.WriteLine "version:" & "2.1" '"3.0"

        Satir.WriteLine "End: vcard"



    Satir.Close



End Sub

bunun ile var olan dosya içine yazılıyor
eğer dosya yok ve yeniden oluşturulacaksa nasıl yazmak lazım

.CreateTextFile( kodu zaten dosya yoksa oluşturur varsa ve True olarak yazılmışsa var olan dosyanın üzerine yazar.

teşekkürler sn. @berduş bende

Set Satir = fso.CreateTextFile("C:\test\test.vcf", True)

kodu hata vermişti dosya bulunamadı diye acaba farklı bir yerde mi hata yaptım

C sürücüsüne ekleyemiyor, D'de var olan bir klasöre eklemeyi deneyin

Belkide klasörde yokmuştur tekrar deneyeyim

1 2