1.判断文件/目录是否存在 Try ' 先判断文件是否存在. If Not File.Exists(TextBox4.Text) Then File.CreateText(TextBox4.Text) '单纯创建文件一般不常用,正常情况下是创建文件然后进行读写操作 'System.IO.File.Create(TextBox4.Text) End If Catch ex As Exception MessageBox.Show(ex.Message) Exit Sub End Try Try '

vb调用exe文件 函数:Call Shell(PathName,WindowStyle) 或 a = Shell(PathName,WindowStyle) ,不需要声明. 注解:PathName 可以是程序路径(如相对路径 App.path +"\...\*.exe").Windows 内置代号(如控制面板选项:Appwiz.cpl 即为添加删除程序,不过要结合 RunDLL32):WindowStyle 是窗口初始样式,如最大化.最小化等. 示例:Private Sub Comm

WritePrivateProfileString函数说明  来源:http://blog.csdn.net/wjb9921/article/details/2005000 在我们写的程序当中,总有一些配置信息需要保存下来,以便完成程序的功能,最简单的办法就是将这些信息写入INI文件中,程序初始化时再读入.具体应用如下: 一.将信息写入.INI文件中. 1.所用的WINAPI函数原型为: BOOL WritePrivateProfileString(LPCTSTR lpAppName,LPCTS

用VB操作Excel(VB6.0)(整理) 首先创建Excel对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application 1)显示当前窗口:ExcelID.Visible:=True2)更改Excel标题栏:ExcelID.Caption:='应用程序调用MicrosoftExcel'3)添加新工作簿:ExcelID.WorkBooks.Add4)打开已存在的工作簿:ExcelID.WorkBo

创建文件 Dim strFile As String = String.Format("C:\ErrorLog.txt", DateTime.Today.ToString("dd-MMM-yyyy")) File.AppendAllText(strFile, String.Format("Error Message in Occured at-- {0}{1}", DateTime.Now, Environment.NewLine)) 第一句话的

最近客户的一个需要,要求将数据以xml的形式发送. vb 实现代码 Private Function createXML_old(ByVal xmlName As String) As Boolean Dim SrcPath As String = "c\project\srcXmlFiles\"        '产生的xml存放的目录 Try Dim writer As New System.Xml.XmlTextWriter(SrcPath & xmlName, Syste

Private Sub writeToExcel(strTmp1() As String, colTmp1 As Collection)'' Dim tmp1 Dim i1 As Integer, intCol As Integer, intRow As Integer Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Worksheet Dim strName

VB中可通过 scripting.filesystemobject 对象操作文件,其中复制文件或文件夹的函数参数可选覆盖或不覆盖.选择覆盖时,如果目标路径存在同名文件或文件夹,则替换掉已存在的文件.而选择不覆盖时,当目标路径存在同名文件或文件夹,程序会抛出异常.因此 scripting.filesystemobject 对象内没有函数可以实现遇到已存在文件跳过的功能. 下面通过 scripting.filesystemobject 对象来自己实现遇到已存在文件跳过的复制函数. Sub XCopy

Public adoConn As New ADODB.Connection Private Sub csv() adoConn.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};DefaultDir=C:\Documents and Settings\vinsonlu\Desktop\1400004" adoConn.Open() Dim rs As New ADODB.Recordset rs.Ope

<SoapHeader("oHeader")> _ <WebMethod()> _ <ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _ Public Function Test_SyncLock() As String ) As Threading.Thread threads(i) = New Threading.Thread(AddressOf PrintNumbers) threads(i

dim strVersion =  Reflection.Assembly.LoadFrom(strFileName).GetName().Version.ToString()

Excel-DNA项目中的自定义功能区和自定义任务窗格需要用到各种命名空间.添加所需文件,才能实现.后来我发现可以把所有代码都写在Class1.vb这个默认文件中. 大家可以在Visual Studio中创建一个类库项目(.Net Framework),然后把默认的Class1.vb中的代码整体替换为下面我贴的这个代码.然后启动调试,就可以看到自定义功能区和任务窗格了. Imports System.Runtime.InteropServices Imports ExcelDna.Integra

VSTO中的自定义功能区和自定义任务窗格需要用到各种命名空间.添加所需文件,才能实现.后来我发现可以把所有代码都写在ThisAddin.vb这个默认文件中. 大家可以在Visual Studio中创建一个外接程序项目,然后把ThisAddin.vb中的代码整体替换为下面我贴的这个代码.然后启动调试,就可以看到自定义功能区和任务窗格了. Imports Microsoft.Office.Core Public Class ThisAddIn Private Sub ThisAddIn_Startu

本文使用Delphi和C++创建CRC32的COM文件(Dll). VB: V6.0 PB: V8.0 Delphi创建的文件,提供给VB6调用:C++创建的文件,提供给PB8调用. 一.VB部分 COM文件:FCN.dll 注册:regsvr32 x:\yyy\FCN.dll 1. 校验值文件 描述:保存FCN文件. 原型:procedure saveFCN(saveFile1,CheckFilePath:pchar); 参数:saveFile1: 保存文件的全路径(路径+文件名称) Chec

在用vb.net开发的security support时,遇到一个问题,在trainingCourses.aspx页面上增加了一个HyperLink控件 <asp:HyperLink runat="server" ID="hlUSOnline" Text="Show Online Training Course" NavigateUrl="/secure/trainingCourses.aspx?c=en-US&o=Tru

运动平台:日脉的二维运动平台(一个旋转平台和一个滑动平台) 开发环境:VS2010 + .NET Framework + VB.NET 使用文件:pci_8158.vb motion_8158_2D.vb 2D平台运动类 Public Class motion_8158_2D Public CardId As Integer 'move parameter here 'AxisNo is 0 or 1 Public AxisNo As Short 'Dist : mm Public Dist A

App_Browsers  包含 ASP.NET 用于标识个别浏览器并确定其功能的浏览器定义 (.browser) 文件.有关更多信息,请参见浏览器定义文件架构(browsers 元素)和如何:在 ASP.NET 网页中检测浏览器类型.  App_Data  包含应用程序数据文件,包括 MDF 文件.XML 文件和其他数据存储文件.ASP.NET 2.0 使用 App_Data 文件夹来存储应用程序的本地数据库,该数据库可用于维护成员资格和角色信息.有关更多信息,请参见成员资格简介和了解角色管理

ASP.NET应用程序和ASP.Net网站所共有的文件: App_Browsers 包含 ASP.NET 用于标识个别浏览器并确定其功能的浏览器定义 (.browser) 文件.有关更多信息,请参见浏览器定义文件架构(browsers 元素)和如何:在 ASP.NET 网页中检测浏览器类型. App_Data 包含应用程序数据文件,包括 MDF 文件.XML 文件和其他数据存储文件.ASP.NET 2.0 使用 App_Data 文件夹来存储应用程序的本地数据库,该数据库可用于维护成员资格和角色

[DSAPI.DLL下载地址]     本节内容,是属于"无需过多说明"就能使用的功能.由于实在是太简单,我就简单地示例一下. DSAPI.文件类.获取可读性强的字节大小信息("c:\1.exe") 返回一个字串,该字串描述了目标文件的大小,自动根据字节长度设定描述单位,如"123.kb","12.3mb","1.23gb". DSAPI.文件类.修改指定文件扩展名为指定打开方式(".sav&qu

'--------------------------------- 'write file     Dim nHandle As Integer, fName As String     fName = "d:\1.txt"     nHandle = FreeFile     Open fName For Output As #nHandle     Print #nHandle, "0"     Print #nHandle, "2"  

ASP.NET应用程序包含7个默认文件夹,分别为Bin.APP_Code.App_GlobalResources.App_LocalResources.App_WebReferences.App_Browsers和“主题”文件夹.每个文件夹都存放ASP.NET应用程序的不同类型的资源. 方法 说明Bin  包含程序所需的所有已编译程序集(.dll文件).应用程序中自动引用Bin文件夹中的代码所表示的任何类App_Code  包含页使用的类(例如.cs..vb和.jsl文件)的源代码App_Glo