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