摘要：检查文件夹是否存在，若不存在则创建 If Not Directory.Exists("E:\Test456") Then Directory.CreateDirectory("E:\Test456") System.IO.File.Create("E:\Test456\1.txt").Dispose 阅读全文

摘要：来源：http://blog.sina.com.cn/s/blog_af1320c70102yfi7.html '写文件 Dim mStreamWriter As New System.IO.StreamWriter(Application.StartupPath & "\1.txt") mStre 阅读全文

摘要：Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click If My.Computer.Keyboard.CtrlKeyDown And 阅读全文

摘要：1、Xlsx格式 Dim tmpdtb As DataTable Dim connectionString As String ' Used to store the connection string Dim customerList As New DataSet ' Used to store 阅读全文

摘要：Public Shared Sub WriteLog(ByVal strStyle As String, ByVal strContent As String) Dim curDate As String = CDate(Now).ToString("yyyy-MM-dd HH:mm:ss") Di 阅读全文