AccessTr.neT
Vba Kod İle Txt Dosyası Oluşturmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba Kod İle Txt Dosyası Oluşturmak (/konu-vba-kod-ile-txt-dosyasi-olusturmak.html)

Sayfalar: 1 2


Vba Kod İle Txt Dosyası Oluşturmak - accessman - 31/05/2020

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 



RE: Vba Kod İle Txt Dosyası Oluşturmak - accessman - 31/05/2020

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


RE: Vba Kod İle Txt Dosyası Oluşturmak - berduş - 01/06/2020

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


RE: Vba Kod İle Txt Dosyası Oluşturmak - accessman - 01/06/2020

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


RE: Vba Kod İle Txt Dosyası Oluşturmak - berduş - 01/06/2020

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


RE: Vba Kod İle Txt Dosyası Oluşturmak - accessman - 01/06/2020

Belkide klasörde yokmuştur tekrar deneyeyim