31/05/2020, 12:20 #1 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Vba Kod İle Txt Dosyası Oluşturmak nasıl olur Visual Basic Code 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 @benbendedeilem Cevapla Cevapla
31/05/2020, 14:06 #2 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Visual Basic Code 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 @benbendedeilem Cevapla Cevapla
01/06/2020, 17:49 #3 Berduş berduş Bul Uzman Adı Soyadı: ha.... Konum: - Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: Bugün,01:29 Yorumları: 5.654 Konuları: 97 Kayıt Tarihi: 30/07/2014 Rep Puanı: 713 .CreateTextFile( kodu zaten dosya yoksa oluşturur varsa ve True olarak yazılmışsa var olan dosyanın üzerine yazar. Cevapla Cevapla
01/06/2020, 18:01 #4 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 teşekkürler sn. @berduş bende Visual Basic Code Set Satir = fso.CreateTextFile("C:\test\test.vcf", True) kodu hata vermişti dosya bulunamadı diye acaba farklı bir yerde mi hata yaptım @benbendedeilem Cevapla Cevapla
01/06/2020, 18:18 #5 Berduş berduş Bul Uzman Adı Soyadı: ha.... Konum: - Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: Bugün,01:29 Yorumları: 5.654 Konuları: 97 Kayıt Tarihi: 30/07/2014 Rep Puanı: 713 C sürücüsüne ekleyemiyor, D'de var olan bir klasöre eklemeyi deneyin Cevapla Cevapla
01/06/2020, 18:20 #6 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.395 Konuları: 900 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Belkide klasörde yokmuştur tekrar deneyeyim @benbendedeilem Cevapla Cevapla