File System Object 1

[EnemyGateIsDown]

Hi guys,

Quick question, in ASP I used to used the file system object to manipulate files such as

fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile(session("AppDir") & "\" & ICS_ID &".ics", True)
a.WriteLine(strICS)
a.Close

How can I do the same thing in vb.net?

Any help is as always greatly appreciated.

Cheers,

Chris

 

[TipGiver]

Hi,

Just to make sure, you want to do it in VB.NET, as a windows application, right? (not ASP.NET)

What is the "strICS" ?

 

[EnemyGateIsDown]

Hi

Yes im looking to do it in VB.Net..

strICS contains a string which makes up an iCalendar file entry looking something like:

       strICS = "BEGIN:VCALENDAR" & vbCrLf
        strICS = strICS & "PRODID:-//Microsoft Corporation//Outlook 9.0 MIMEDIR//EN" & vbCrLf
        strICS = strICS & "VERSION:2.0" & vbCrLf
        strICS = strICS & "METHOD:REQUEST" & vbCrLf
        strICS = strICS & "BEGIN:VEVENT" & vbCrLf
        strICS = strICS & "ATTENDEE;CN=""" & emailto & """;ROLE=REQ-PARTICIPANT;RSVP=TRUE:MAILTO:" & emailto & vbCrLf
        strICS = strICS & "ORGANIZER:MAILTO:" & emailto & vbCrLf
        strICS = strICS & "DTSTART:" & ICSDate(IsoDate(StartDate)) & vbCrLf
        strICS = strICS & "DTEND:" & ICSDate(IsoDate(EndDate)) & vbCrLf
        strICS = strICS & "LOCATION:" & sLocation & vbCrLf
        strICS = strICS & "TRANSP:OPAQUE" & vbCrLf
        strICS = strICS & "SEQUENCE:0" & vbCrLf
        strICS = strICS & "UID:" & sbooker & vbCrLf
        strICS = strICS & "DTSTAMP:20060626T104103Z" & vbCrLf
        strICS = strICS & "SUMMARY:" & sSubject & vbCrLf
        strICS = strICS & "PRIORITY:5" & vbCrLf
        strICS = strICS & "CLASS:PUBLIC" & vbCrLf
        strICS = strICS & "BEGIN:VALARM" & vbCrLf
        strICS = strICS & "TRIGGER:PT15M" & vbCrLf
        strICS = strICS & "ACTION:DISPLAY" & vbCrLf
        strICS = strICS & "DESCRIPTION:Reminder" & vbCrLf
        strICS = strICS & "END:VALARM" & vbCrLf
        strICS = strICS & "END:VEVENT" & vbCrLf
        strICS = strICS & "END:VCALENDAR" & vbCrLf

 

[TipGiver]

Something like:



Dim a As System.IO.StreamWriter = _
System.IO.File.CreateText(Application.StartupPath & "\" & ICS_ID & ".ics")
a.Write(strICS)
a.Close()

 

[EnemyGateIsDown]

Thanks.. thats exactly what Im after.. Im slowly getting to grips with the VB.NET object heirarchy

Cheers,

Chris

 

[TipGiver]

Great.
Tnx again