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

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