精华内容
下载资源
问答
  • VB读取文件名.

    2011-06-30 18:57:56
    VB读取指定文件夹下的所有文件的名字以及属性
  • 根据选择的全路径文件名 获取文件名(带后缀) 不带后缀的文件名,当前文件夹,及上一层文件夹 文件夹 打开文件夹
  • Private Sub ExportCostSheetData() InsertRow("") InsertRow("Run 2:Export CostingSheet=========================") InsertRow("Status:System Connectting DataBase!") I...
    Private Sub ExportCostSheetData()
            InsertRow("")
            InsertRow("Run 2:Export CostingSheet=========================")
            InsertRow("Status:System Connectting DataBase!")
            If ConnJWeb() = False Or ConnJWeb2() = False Then
                InsertRow("Status:System Connectting DataBase fialed!")
                AddRow("", "", "Status:System Connectting DataBase fialed!", "system")
                Exit Sub
                ' GoTo End1
            End If
            Dim CurrentComp As Integer
            Dim strDestFolder As String = "\\1.1.1.1\BogartCosting\CostSheet\"
            Dim rsR As New ADODB.Recordset
            Dim Flag As String = selectValue(" select top 1 flag from CostingSheetFileInfo ", adoJWeb, 0)
            Try
    
                Dim strFiles() As String = Directory.GetFiles(strDestFolder)
                Dim strFile As String
                Dim AbsolutePath As String
                Dim strFilePresent As String
    
                rsR.Open("select * from CostingSheetFileInfo ", adoJWeb, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
                For Each strFile In strFiles
                    strFilePresent = Path.GetFileName(strFile)
                    AbsolutePath = strDestFolder & strFilePresent
                    Dim netCmd As New OleDb.OleDbCommand("P_DeleteRecord", netJWeb)
                    netCmd.CommandType = CommandType.StoredProcedure
                    netCmd.Parameters.Add("@FileName", strFilePresent)
                    netCmd.Parameters.Add("@FileType", "Complete Costing")
                    netCmd.ExecuteNonQuery()
                    rsR.AddNew()
                    rsR.Fields("FileName").Value = strFilePresent
                    rsR.Fields("FileType").Value = "Complete Costing"
                    rsR.Fields("AbsolutePath").Value = AbsolutePath
                    rsR.Fields("LastUpdateDate").Value = Now()
                    rsR.Fields("Flag").Value = IIf(Flag = 0, "1", "0")
                    rsR.Update()
                    InsertRow(strFilePresent & "===OK!")
                    CurrentComp = CurrentComp + 1
                    Me.ProgressBar1.Value = (CurrentComp / strFiles.Length) * 100
                Next
                rsR.Close()
            Catch ex As Exception
                SendEmail()
                InsertRow("===Open Folder Fail===")
                InsertRow("End Time:" & Now)
                Exit Sub
            End Try
    
    
            adoJWeb.Execute("Update CostingSheetFileInfo set flag='" & IIf(Flag = 0, "1", "0") & "' where flag is null ")
            adoJWeb.Execute(" delete from CostingSheetFileInfo where flag='" & Flag & "'")
            '  InsertRow(" Total error records:" & strFiles.r & "")
            InsertRow("")
            InsertRow("***************** System export result *******************")
    
            InsertRow("")
            InsertRow("End Time:" & Now)
            InsertRow("***************************************************************")
    
    
        End Sub

     

    转载于:https://www.cnblogs.com/vinsonLu/p/3464931.html

    展开全文
  • excel vba 自动读取文件名与文件夹名
  • vb读取txt文件

    2013-12-12 18:40:48
    总结了vb语言读取txt文件的各种方法,不是很完善,供各位亲们参考
  • vb6根据路径获取文件名

    千次阅读 2019-05-10 16:35:35
    '获取路径,截取文件名' MsgBox Mid ( txtFilePath . Text , Len ( txtFilePath . Text ) - ( InStr ( 1 , StrReverse ( txtFilePath . Text ) , "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), ...
    '# txtFilePath : 控件名'
    '过程'
    Len(txtFilePath.Text)                         '取字符串总长度'
    StrReverse txtFilePath.Text                   '反转字符串'
    InStr 1, "ABCDE", "A"                         '从规定位置开始,从前往后查找,查找第一个出现在的位置'
    InStr 1, StrReverse(txtFilePath.Text), "\"    '反转字符串后查找第一个 \ 出现的位置'
    
    MsgBox "总长度:" & Len(txtFilePath.Text) & vbCrLf & _
        "翻转查找\位置:" & InStr(1, StrReverse(txtFilePath.Text), "\") & vbCrLf & _
        "反取字符串::" & Mid(txtFilePath.Text, Len(txtFilePath.Text), (InStr(1, StrReverse(txtFilePath.Text), "\"))) & vbCrLf & _
        "计算开始位置:" & Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) & vbCrLf & _
        "计算长度:" & (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & vbCrLf & _
        "正取字符串:" & Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1)
        
    '开始位置,数额越加越低,大值 - 小值'
    MsgBox Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) 
    
     '长度'
    MsgBox (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1
    
    '获取路径,截取文件名'
    MsgBox Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1) 
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '结果'
    Mid( & _
        txtFilePath.Text, & _
        Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), & _
        (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & _
    ) 
    '需要截取的字符串'
    '字符串开始的位置'
    '需要截取的长度'
    
    
    展开全文
  • 使用vb.net语言编写的excel文件数据读取和保存,可以实现读取数据的显示,希望大家可以多学习交流下。
  • 前几日,有个哥们说有很多... 软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599vb版本目录获取器 1.0(龙卷风出品)说明:1.选好目录后,可以直接得到目录下的文件夹和文件名称,以及统计数目

     前几日,有个哥们说有很多电影,问我要不要?我就让他一个一个的写过来,让哥们累个不轻。所以就想简单写个程序,获取一下文件夹下面的所有文件名称,这样就可以节省很多时间了。

     

    软件呢,我已经上传到网站了:http://download.csdn.net/source/1802599

    vb版本目录获取器 1.0(龙卷风出品)
    说明:
    1.选好目录后,可以直接得到目录下的文件夹和文件名称,以及统计数目。
    2."树形结构"按键将会把各文件夹和文件罗列下来。
    3."树形展开"将把目录下的子目录也一并展开。大家测试的时候需要注意,不要用太深的目录来测。

     

     

    下面开始动手的步骤:

     

     vb中有个函数Dir(),这个就是今天的主角了。Dir()第一次调用的时候,必须指定路径。然后其会返回一个string,这就是一个文件夹,或者一个文件的名称了。具体用法,大家google一下吧。我就不多说了。

     

    然后就是区分返回值是文件夹,还是文件。这里用到的就是vbDirectory(=16)这个属性了。

    OK. 剩下的就简单了,我把我软件中的这部分发出来share一下,大家不要说水平太差哟:

     

    首先我是将文件显示做了区分:文件夹名称显示folderlist(),文件名称显示filelist():

    Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
    '文件夹数和名称
    Dim sf As String
    sf = Dir(pathname, vbDirectory) '获取第一个目录名
    foldernum = 0
    Do While sf <> ""
    ' 跳过当前的目录及上层目录
        If sf <> "." And sf <> ".." Then
            If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
                If treeflag = 0 Then
                    Text2 = Text2 & sf & vbCrLf  ' 如果它是一个目录,将其名称添加到列表
                ElseIf treeflag = 1 Then
                    Text2 = Text2 & Treestr & sf & vbCrLf
                ElseIf treeflag = 2 Then '树形展开的时候,需要了解子目录,所以还需进行递归调用
                    Text2 = Text2 & Treestr & sf & vbCrLf
                    folderlist pathname + sf, treeflag
                    filelist pathname + sf, treeflag
                End If
                foldernum = foldernum + 1 '统计文件夹数目
            End If
        End If
    sf = Dir() ' 查找下一个目录
    Loop

    If treeflag = 0 Then
        If foldernum <> 0 Then
            Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf
        Else
            Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf
        End If
    ElseIf foldernum <> 0 Then
        Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf
    End If

    End Function

     

    Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开
    '文件数和名称
    Dim a As String

    a = Dir(pathname & "/*.*")
    filenum = 0

    Do While a <> ""

        If treeflag = 0 Then
            Text2 = Text2 & a & vbCrLf
        Else
            Text2 = Text2 & Treestr & a & vbCrLf
        End If
        filenum = filenum + 1 '统计文件数目
        a = Dir
    Loop

    If treeflag = 0 Then
        If filenum <> 0 Then
            Text2 = Text2 & "======共有" & filenum & "个文件======"
        Else
            Text2 = Text2 & "======无文件信息======"
        End If
    End If

    End Function


     

    OK,现在大家都已经了解处理机制了。应该不会再管我要什么源码了吧!呵呵

     

    展开全文
  • 你的INI文件是什么编码。打开INI文件,另存为,下面...如果你的程序非UNICODE,就选择ANSI,如果你的程序时UNICODE就选择UNICODE,另存为以后再读取。UTF-8的编码在VC里面无法正常显示。需要转换为ANSI或UNICOD ...

    打开INI文件,另存为,下面选择编码。如果程序非UNICODE,就选择ANSI,如果是UNICODE就选择UNICODE,另存为以后再读取。UTF-8的编码在VC里面无法正常显示。需要转换为ANSI或UNICOD

    展开全文
  • vb程序,提取制定文件夹下的所有类型的文件名,倒入到电子表格
  • vb获取程序文件名称

    2019-09-11 16:12:58
    My.Application.Info.AssemblyName
  • 一个用VB写的小程序,可以用来提取某个文件下的所有文件的不带扩展名的文件名及子文件名,并输出成文本,做论文等时可能有点用。
  • vb.net 取得文件名、路径名、扩展名

    万次阅读 2013-09-25 14:35:01
    利用以下方法,可以轻松取得指定文件的文件名、路径名、扩展名信息   System.IO.Path.GetExtension("c:\windows\test.txt")'获取扩展名  System.IO.Path.GetFileName("c:\windows\test.txt")'获取文件名  ...
  • VB 图片转换为Byte()和从Byte()中读取图片的捷径
  • VB目录遍历读取源码示例,一个基础的FSO文件系统操作实例,直接读取所有的目录和子目录,可一级一级读取文件夹,直到无文件夹为止,然后读取最后一个目录中的所有文件,列出这些文件名。以截图示例的程序,将读取...
  • ![图片说明]... 按下按钮1,获取 F:\text\目录里的任意一个文件的名字,然后名字显示到label1 新手,求大神给下简单代码,老师作业,就差这个代码 谢谢
  • vb提取查看thumbs.db文件中的图像内容,VB6.0编写开发的Windows XP缩略图缓存文件查看提取工具,把有图片的文件夹中的Thumbs.db拖到下面的列表框中(在资源管理器的文件夹选项设置中要取消“隐藏受保护的系统文件...
  • 通过excel文件,点击按钮通过资源管理器自动获取目标文件夹内的文件名,并进行修改
  • vb如何读取excel文件

    万次阅读 2016-10-05 11:52:29
    转自:...1、调用Excel对象打开EXCEL文件后,读取文件内容 ************************
  • 文件夹下所有文件名导出到Excel ,比较适合于财务人员使用,前提必需安装framework2.0
  • vb 读取文件属性

    千次阅读 2011-02-28 16:11:00
    如果只是查看大小、修改时间的话,可以直接使用VB内建函数: 返回文件修改时间:FileDateTime(文件路径) 返回文件字节大小:FileLen(文件路径) 示例: Private Sub Form_Load() Dim sOut As String Const ...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • 如图N列是文件夹名,S列是文件名,文件位置是C:\Users\Administrator\Desktop\异形数据对接仁科\fic,文件后面的类型是mpr。然后要读取A列数据,如果是“异形面板_2_BBBBB“”则执行某项代码 最好是VB代码
  • System.IO.Directory.GetFiles中的路径如果明确指定就可以,如果按照下面这种方法就不行,求大神指点 Private Sub Button5_Click(sender As Object, e As ... MsgBox("读取文件出错") End Try End Sub
  • EXCEL-VBA:EXCEL的各种文件名获取

    万次阅读 2018-12-06 14:58:38
    '文件名(不带路径) ABC.xlsx ThisWorkbook.Name '文件名不带扩展名 ABC Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) '带全路径的文件名 C:\Folder\ABC.xlsx ThisWorkbook.Path &...
  • VB 检测 U盘 的插拔 并 获取文件名 及路径
  • VB 用Fso函数处理带有问号的Unicode文件名  VB6 编写程序时,经常遇到文件名中含有Unicode字符的文件名,常规的Name语句,Open语句,甚至Windows 中API函数都无法处理这里的文件名,因为这些文件在VB String字符串...
  • VB.NET NPOI读取EXCEL数据到DataTable

    千次阅读 2020-01-05 16:02:16
    Imports NPOI.HSSF.UserModel Imports NPOI.SS.UserModel Imports NPOI.XSSF.UserModel ''' ''' 获取EXCEL表格真正的值 ... MsgBox(文件名 & " 不存在,请检查!!", MsgBoxStyle.Critical) End If  

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,663
精华内容 3,465
关键字:

vb读取文件名