精华内容
下载资源
问答
  • VB.NET纯代码实现Excel文件创建代码完全模拟Excel文件写法,最终实现无需Excel程序即可自动创建Excel文件
  • vb加密所需的创建文件,以及删除文件的小脚本。 简单方便,希望能给大家提供便利
  • 文件属性查看修改,VB代码,可获得比较全面的文件属性信息,比如获得文件创建和修改时间、获得和设置文件属性,比如存档、系统、只读、隐藏、压缩、路径、临时、常规等。
  • 1.本程序的对话框和OpenFileDialog对话框一样,可以输入路径, ...3.也可以选择选择文件,同时选择多个文件。 应用代码非常简单。 再也不用FolderBrowserDialog这个老土的对话框选文件夹了!!!
  • 内容索引:VB源码,文件操作,文件属性,权限修改 文件属性查看修改,VB代码,可获得比较全面的文件属性信息,比如获得文件创建和修改时间、获得和设置文件属性,比如存档、系统、只读、隐藏、压缩、路径、临时、常规...
  • VB.NET创建文件夹并复制文件代码

    千次阅读 2018-09-26 14:09:02
    '新增记录时必须给该记录建立存档文件目录  Dim sml As String = Me.LinkLabel1.Text '调用窗体上的存档目录  Dim file_name() A...

                        '新增记录时必须给该记录建立存档文件目录
                        Dim sml As String = Me.LinkLabel1.Text                                                    '调用窗体上的存档目录
                        Dim file_name() As String
                        If Not Directory.Exists(sml) Then                                                         '检测是否存在目录
                            Directory.CreateDirectory(sml)                                                        '按路径创建新的文件夹
                            For i = 0 To ListBox1.Items.Count - 1
                                file_name = Split(ListBox1.Items(i).ToString, "\")                                '获取文件名
                                FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                            Next
                        Else
                            For i = 0 To ListBox1.Items.Count - 1
                                file_name = Split(ListBox1.Items(i).ToString, "\")                                '获取文件名
                                FileCopy((ListBox1.Items(i).ToString), sml & "\" & file_name(UBound(file_name)))  '复制文件到新的路径
                            Next
                        End If

    展开全文
  • 不错的VB文件属性信息查看器,可查看文件创建和修改日期、保存时间,还可查看文件是否是是隐藏、系统、存档、只读、临时、普通、压缩等属性,浏览到你要查看的文件,支持所有的文件类型,都可以查看到这些信息。
  • VB操作IIS完整代码,附有VB.NET完整工程文件以及txt文本代码代码同样可以在VB6.0下运行,具体自己建好工程,把txt文本代码复制过去就行了。具体功能可以操作IIS进行创建站点、删除站点、列出站点、修改站点、...
  • VB代码生成MDB文件

    2014-10-12 16:38:46
    VB代码,一键生成MDB文件,修改相关参数即可。已测试~
  • 内容索引:VB源码,系统相关,文件关联 一共有两个实用向大学演示如何使用VB创建系统文件关联,一个是把 .bar 文件与 notepad 建立关联,使用一个.log文件,把它和记事本程序建立关联以后,就能直接用记事本程序打开并...
  • VB中获取一个文件创建、修改、访问时间代码
  • 摘要:VB源码,文件操作,文件夹监控 VB监控指定文件夹里的文件操作,比如新建、删除、重命名等。当程序发现文件夹内的内容改变时候会弹出提示框,对大家编写文件夹加密、文件夹监控软件应该有点帮助吧。很早前从网上...
  • 很久以前的文档,整理出来,回味一下 使用VB封装ASP,建立SayHello测试程序 1、打开VB6,新建ActiveX DLL 2、在工程引用加入Microsoft Active Server Pages Object Library选择 3、填加代码如下: ‘Code ...
  • VB6.0实现同时打开多个文件在多个窗口显示文件内容,FileNames树组存储划分后的文件目录和文件名称,设置CommonDialog1控件属性,显示打开对话框,在VB代码内CommonDialog1的FileName属性值后面添加空格,设置i...
  • 内容索引:VB源码,文件操作,文件操作 Vb得到文件创建时间和修改时间,一个读取文件属性相关的程序,这里读取的是时间属性,包括文件创建的时间和修改的时间。供初学者参考。
  • VB修改文件时间.rar

    2019-07-10 11:01:25
    VB修改文件创建的时间,如果你想搞一个不真实的事情,你可以通过本程序获取文件属性,从而修改文件创建的时间,有时候可以蒙过一些人,呵呵。程序操作文件属性,是个例子可参考。
  • VB生成和删除XML文件节点的方法,演示代码,如何在VB环境下正确使用XML文件创建节点和修改节点,以及删除节点内容,XML目前应用广泛,值得掌握。加入了比较详细的注释,希望对大家有所帮助,另外正在学习VB解析...
  • VB读写配置文件(ini)

    千次阅读 2019-07-31 14:45:03
    .ini 文件是Initialization File的缩写,即初始化文件,是windows的系统配置文件所采用的存储格式,统管windows的各项配置,一般用户就用windows提供的各项图形化管理界面就可实现相同的配置了。但在某些情况,还是...

    前言
    .ini 文件是Initialization File的缩写,即初始化文件,是windows的系统配置文件所采用的存储格式,统管windows的各项配置,一般用户就用windows提供的各项图形化管理界面就可实现相同的配置了。但在某些情况,还是要直接编辑ini才方便。

    一、调用系统库函数

    '读配置文件(调用系统库函数)
    Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
     ByVal AppName As String, _
     ByVal KeyName As String, _
     ByVal lpDefault As String, _
     ByVal lpReturnString As String, _
     ByVal nSize As Long, _
     ByVal FileName As String) _
    '写配置文件(调用系统库函数)
    Public Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
    ByVal AppName$, _
    ByVal KeyName$, _
    ByVal keyDefault$, _
    ByVal FileName$)
    

    二、封装函数

    
    '读配置文件(简化函数调用)
    Public Function ReadIni(ByVal AppName As String, ByVal KeyName As String, ByVal DefaultValue As String, Optional IniPath As String) As String
        Dim Buf As String
        Dim ret As Integer
        Dim tmp As String
        Buf = String(1024, 0) 'buf=10240
        If IniPath = "" Then
            ret = GetPrivateProfileString(AppName, KeyName, DefaultValue, Buf, 1024, App.Path + "\config.ini")
        Else
            ret = GetPrivateProfileString(AppName, KeyName, DefaultValue, Buf, 1024, IniPath)
        End If
        tmp = Mid(Buf, 1, ret)
        If InStr(1, tmp, Chr(0)) > 0 Then tmp = Left(tmp, InStr(1, tmp, Chr(0)) - 1)
        ReadIni = tmp
    End Function
    '写配置文件(简化函数调用)
    Public Function WriteIni(ByVal AppName As String, ByVal KeyName As String, ByVal KeyValue As String, Optional IniPath As String = "") As Boolean
        If IniPath = "" Then
            WritePrivateProfileString& AppName, KeyName, KeyValue, App.Path + "\config.ini"
        Else
            WritePrivateProfileString& AppName, KeyName, KeyValue, IniPath
        End If
    End Function
    
    

    三、使用函数

       WriteIni "pronum", "num", 123 '写入ini
       num = ReadIni("pronum", "num", "0")  '读出ini
    
    展开全文
  • VB 创建文件夹

    2021-08-05 00:35:24
    1 在窗口再添加一个CommandButton,双击CommandButton在: Private Sub Command2_Click() 和 End Sub 之间写入如下代码 If Not fso.FolderExists(Text1.Text) Then MsgBox "要判断的文件不存在!","警告" Else Dim...

    方法一:

    Public Function CheckDir(ByVal DirName As String) As Boolean

    Dim ret As Integer

    ret = SHFileExists(DirName)

    If ret = 0 Then

    CheckDir = False

    Else

    CheckDir = True

    End If

    End Function

    If Dir("C:\Program Files\VIEWGOOD",vbDirectory) <> "" Then 'MsgBox "存在"

    如果一个文件夹下没有文件(不管有没有子文件夹)则 dir("一个文件夹")就返回空

    所以不能通过 dir("一个文件夹")来判断一个文件夹是否存在。

    只能调用api函数

    Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

    PathFileExists("一个文件或文件夹") 如果存在 返回1 不存在返回0

    方法二:

    1新建一个工程在窗口上添加一个TextBox、一个CommandButton、一个Label

    设置textBox的text属性为c:\test

    设置label的caption属性为空

    2单击工程(P)>>引用(N)

    Microsoft Scripting Control 1.0

    Microsoft Scripting Runtime

    勾选以上两个选项,单击确定完成引用

    3双击Command1在Private Sub Command1_Click()

    Dim fso As New FileSystemObject

    End Sub

    之间添加如下内容!

    If fso.FolderExists(Text1.Text) Then

    MsgBox "要创建的文件已存在!",vbOKOnly,"警告"

    Else

    fso.CreateFolder (Text1.Text)

    Label1.Caption = Text1.Text + "创建成功!"

    End If

    至此,新建文件夹功能已经实现!

    下边我们来实现判断文件夹是否为空!

    1 在窗口中再添加一个CommandButton,双击CommandButton在:

    Private Sub Command2_Click()

    End Sub

    之间写入如下代码

    If Not fso.FolderExists(Text1.Text) Then

    MsgBox "要判断的文件不存在!","警告"

    Else

    Dim FolderSize As Long

    FolderCount = fso.GetFolder(Text1.Text).SubFolders.Count

    Debug.Print FolderCount

    Label1.Caption = Str(FolderCount)

    If FolderCount Then

    MsgBox "此文件夹共有:" + Str(FolderCount) + "个文件\文件夹!","警告"

    Else

    MsgBox "此文件夹为空!","警告"

    End If

    End If

    ------------------------------------------测试用--------------------------

    Private Function creat_folder()

    ChDrive "D"

    If Dir("D:\SPC-TO-WINDING",vbDirectory) <> "" Then

    Else

    MkDir "D:\SPC-TO-WINDING"

    End If

    ChDir "D:\SPC-TO-WINDING"

    If Dir(M_NO,vbDirectory) <> "" Then

    Else

    MkDir M_NO

    End If

    ChDir "D:\SPC-TO-WINDING\" + M_NO

    If Dir(P_NAME,vbDirectory) <> "" Then

    Else

    MkDir P_NAME

    End If

    ChDir "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME

    If Dir(P_NO,vbDirectory) <> "" Then

    Else

    MkDir P_NO

    End If

    ChDir "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME + "\" + P_NO

    If Dir(CStr(Date) + ".txt",vbDirectory) <> "" Then

    Else

    Call creat_txt(M_NO,P_NAME,P_NO)

    End If

    End Function

    Private Function creat_txt(M_NO As String,P_NAME As String,P_NO As String) Dim FILENAM As String Dim msg As String FILENAM = "D:\SPC-TO-WINDING\" + M_NO + "\" + P_NAME + "\" + P_NO + "\" & CStr(Format$(Now,"yyyy-mm-dd")) & ".txt" 'Kill FILENAM If Dir(FILENAM) = "" Then Open FILENAM For Output As #1 Else Open FILENAM For Append As #1 End If msg = "#;#;#;#;1;2;3" Print #1,msg msg = "MAX;#;#;#;100;55;70" Print #1,msg msg = "MIN;#;#;#;0;33.3;21.3" Print #1,msg Close #1 MsgBox "OK" End Function

    展开全文
  • vb.net 实现结构体直接保存为文件 本身作为一个class。将其导入到vb工程,或者在vb.net中新建一个类并复制入代码,即可调用。
  • 代码生成PDF,支持的超链接,图形等pdf的功能
  • VB源码,文件操作,文件提取 一款可以帮助VB开发者创建安装程序的文件提取工具,通过这个工具可以分析VB6的工程文件,并列出所有支撑的文件,并分析出OCXs, DLLs, TLBs文件的结构内容复制到一个指定的文件夹,方便...
  • VB代码实现生成PDF文件

    热门讨论 2008-09-23 21:00:07
    解压密码:codesky.net 纯VB代码实现生成文件VB6利用一些别人的代码生成文件,支持不够完整。 可供参考。
  • VB6简单文件与文件夹操作

    千次阅读 2018-01-29 21:45:20
    直接上代码: Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long Public Function CreateFolders(ByVal FolderPath As String) As Boolean If Not ...

    直接上代码:

    Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long
    
    Public Function CreateFolders(ByVal FolderPath As String) As Boolean
        If Not Right(FolderPath, 1) = "\" Then FolderPath = FolderPath & "\"    '参数必须以反斜杠 "\" 结尾,否则创建失败或者创建一个同名空文件
        CreateFolders = MakeSureDirectoryPathExists(FolderPath)                 '如果未指明磁盘位置(例如相对路径),将从编译后应用程序的工作路径创建。如果在 IDE 环境将在 %systemroot%\System32 文件夹内创建。32 位程序操作 64 位系统时则从 %systemroot%\SysWOW64 目录创建。
    End Function
    
    Public Function PathFileExist(ByVal PathFile As String) As Long '返回 0 表示不存在,返回 1 表示是文件,返回 -1 表示是文件夹,返回 2 表示是磁盘分区,返回 -2 表示不是合法文件路径或文件名
        'vbAlias    64  指定的文件名是一个别名。只在 Macintosh(Mac OS) 中可用
        On Error Resume Next
        If Right(PathFile, 1) = "\" Then PathFile = Left(PathFile, Len(PathFile) - 1)
        If Len(Dir(PathFile, vbReadOnly Or vbHidden Or vbSystem Or vbVolume Or vbArchive Or vbDirectory)) = 0 Then
            PathFileExist = 0
        Else
            If (GetAttr(PathFile) And vbDirectory) = vbDirectory Then
                If Len(PathFile) < 4 Then
                    PathFileExist = 2
                Else
                    PathFileExist = -1
                End If
            Else
                PathFileExist = 1
            End If
        End If
        If Err.number = 52 Then PathFileExist = -2
    End Function
    
    '示例
    Private Sub Command1_Click()
        Dim TestDir As String
        Dim IsExist As Long
        TestDir = "F:\FolderTest\abc\"
        IsExist = PathFileExist(TestDir)
        If IsExist = 0 Then
            If CreateFolders(TestDir) Then
                MsgBox "准备使用的文件夹不存在,已创建。", vbInformation, "创建文件夹"
            Else
                MsgBox "创建文件夹失败。", vbCritical, "创建文件夹"
            End If
        ElseIf IsExist = 1 Then
            If MsgBox("准备使用的文件夹被一个同名文件占用,是否删除此文件建立文件夹?", vbQuestion + vbYesNo, "创建文件夹") = vbYes Then
                If Right(TestDir, 1) = "\" Then TestDir = Left(TestDir, Len(TestDir) - 1)
                SetAttr TestDir, vbArchive
                Kill TestDir
                If CreateFolders(TestDir) Then
                    MsgBox "已删除同名文件并创建文件夹。", vbInformation, "创建文件夹"
                End If
            End If
        ElseIf IsExist = 2 Then
            MsgBox "准备使用的文件夹为磁盘分区,无法创建。", vbExclamation, "创建文件夹"
        ElseIf IsExist = -1 Then
            MsgBox "准备使用的文件夹已存在,无需再创建。", vbInformation, "创建文件夹"
        Else    '-2
            MsgBox "准备使用的文件夹名称非法,无法创建。", vbExclamation, "创建文件夹"
        End If
    End Sub
    展开全文
  • 内容索引:VB源码,文件操作,XML VB操作XML文件的一个简单小例子,演示如何在VB程序下创建XML建立和删除节点,并将建立的文件保存为XML,代码中加入了比较详细的注释,正在学习VB解析XML文档的朋友可以参考一下。...
  • 某些时候需要打开Excel文件来获取或者写入数据,但又不希望跳出打开的Excel文件窗口,可以用下面的代码: Dim eb As New excel.Application, wb as excel.WorkbookSet wb = eb.Application.Workbooks.Open...
  • VB中如何创建并写入txt文件

    千次阅读 2014-05-03 16:16:56
    Private Sub Command2_Click()  Open "F:\TEST\b.txt" For Output As #1  Print #1, Text1.Text ...以上代码可以创建一个txt文件 Private Sub Command1_Click()  Dim str  Open "F:\TEST\a.t
  • VB编写的整点半点报时模块,代码中有注释,现在把模块和声音文件打包分享给大家。 注意: 在使用之前还要调用一个系统dll来播放声音文件【PlaySound 】,下面可以看到 调用声明:Public Declare Function ...
  • 内容索引:VB源码,文件操作,文件操作,属性 VB详细获取任意文件的属性信息,这个程序可以不限制文件类型,而实现获取任一文件的属性,比如获取文件大小,得到文件创建的时间、修改时间、最后一次访问时间、文件是否...
  • VB简单的几个代码

    2013-05-12 22:21:30
    打开软件 打开网站 全屏 从第一窗口切换成第二窗口 删除文件 新建文件 复制文件代码

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 58,938
精华内容 23,575
关键字:

vb中新建文件的代码