Dim fileWriter As StreamWriter Dim sDirName As String sDirName = OutYiDooPath Dim dDir As New DirectoryInfo(sDirName) If Not dDir.Exists Then System.IO.Directory.CreateDirectory(OutYiDooPath) End If Try fileWriter = New StreamWriter(OutYiDooPathName,False,System.Text.Encoding.Default) Catch ex As Exception LblStatus.Text = Msg_Get(sProgId,"009040") Msg<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(ex.Message,sMsgTitle) Exit Sub End Try Dim title as String="aaa" fileWriter.WriteLine(title) fileWriter.Flush() fileWriter.Close()