win78787
2016-12-20 08:31
采纳率: 80%
浏览 1.0k
已采纳

vb6.0 判断文件名做出操作

例如，判断目录中的图片文件，目录固定，文件不固定
A_1.jpg 下划线后面写1就执行代码，printform
A_2.JPG 下划线后面写2就执行代码，两次printform

  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

3条回答 默认 最新

  • hdxxiang 2016-12-20 12:14
    已采纳

    不好意思，刚刚太急发错代码了，更正的如下：
    void RecursiveFindFileByName(CString folderPath)
    {
    CFileFind ff;
    CString szDir = folderPath;
    if(szDir.Right(1) != _T("\"))
    szDir += _T("\");
    szDir += _T("*.*");

    BOOL res = ff.FindFile(szDir);

CString strFileName,strFilePath;

while(res) //遍历本级文件夹下的所有文件
{ 
    res = ff.FindNextFile();
    strFilePath = ff.GetFilePath();//获取文件路径
    strFileName = ff.GetFileName();   //获取文件名
    if (ff.IsDirectory() && !ff.IsDots())//如果是文件夹
    {
        RecursiveFindFileByName(strFilePath);//递归查询子目录
    }else if (wcsstr(strFileName,_T("_1.jpg")) != NULL)//文件
    {
        //操作
    }else if (wcsstr(strFileName,_T("_2.jpg")) != NULL)//文件
    {
        //操作
    }
}
    评论
    解决 无用
    打赏 举报
  • 查看更多回答(2条)

报告相同问题？

提交

相关推荐 更多相似问题

  • vb6.0 判断文件名做出操作
    2016-12-20 08:31
    回答 3 已采纳 不好意思，刚刚太急发错代码了，更正的如下： void RecursiveFindFileByName(CString folderPath) { CFileFind ff; CStri
  • VB6.0关于CreateObject语句的使用
    2016-04-06 15:08
    回答 1 已采纳 如果类型不存在，肯定是不能转换的，会丢出一个运行时错误出来。
  • vb 6.0怎么显示空值---显示数据库的空值
    2019-06-08 15:02
    回答 1 已采纳 if IsNull(rs!字段) then ... '空值处理 end if
  • vb6.0改Excel的工作表名
    2014-08-17 23:26
    vb6.0改Excel的工作表名
  • 批量文件重命名软件，VB6.0开发的源码程序.rar
    2019-07-09 14:43
    批量文件重命名软件，VB6.0开发的源码程序，选中目录，选中需要修改的文件后缀扩展名，选择定义的文件名前缀，程序会试图批量修改文件下的文件，并按文件名前缀依次排列。
  • VB6.0用Rnd生成随机数的一个bug
    2016-04-08 06:46
    回答 1 已采纳 在程序开头加上randomize
  • vb6.0 如何获取excel的文档属性
    2017-06-21 09:32
    回答 1 已采纳 可以用Folder.GetDetailsOf函数获取文件的详细属性。 下面这个例子获得C:\WINDOWS目录下clock.avi文件的文件类型 ``` Private Sub btnG
  • vb6.0中一些定义和使用方法？
    2018-08-18 09:07
    回答 2 已采纳 ``` 这个可以用 String * 100 这个一般不需要，直接用Type定义结构体 这个VB没法调用，只有stdcall才能调用，cdecl需要借助vc++转了。
  • VB6.0将图像保存到数据库.rar
    2019-07-10 19:20
    在网络内，VB6.0将图像文件保存到数据库，就是大家说的JPG/GFI/BMP之类的图像文件，保存到数据库中，实例中包括了MDB文件，是Access2003格式的数据库，在comFileacess目录下。相关定义： 　kuang.lpstrFilter = ...
  • VB6.0封装EXCEL2010功能区菜单
    2012-12-06 15:52
    第十七步:把MyCustomUI.xlsm工作薄另存为加载宏工作薄，保存类型选择“Excel 加载宏（*.xlam),保存在“EXCEL2010选项卡安装与卸载”文夹里，文件名不变 第十八步：新建一个新的工作薄，保存在“EXCEL2010选项卡安装...
  • vb6.0 SearchDirs文件搜索查找程序.rar
    2019-07-10 17:30
    vb6.0文件搜索查找程序实例，操作时选取文件夹所在的路径，选择文件所在范围，输入要查找的文件名进行搜索，调用SearchDirs函数查找文件，声明搜索文件要用到API函数和变量类型，递归调用Searchdirs自定义过程，实现...
  • VB6.0 发布程序的时候，打包错误 开发语言
    2019-06-08 23:14
    回答 2 已采纳 把myr作为private成员变量写在Sub Command3_Click()外面 Set myrs = mycon.Execute("select * from book")修改为 if myr
  • vs2015的VB与VB6.0的VB有什么区别？
    2015-11-01 07:00
    回答 2 已采纳 几乎可以说是不同的一门语言了，VB是面向过程 模块化的，后来的vb也升级成了vb.net了，要运行于.net虚拟机之中。类似于JAVA。 好处就是不管那一台机，只要能装上.net的运行vb.net的
  • VB6.0怎么拿到C++ BSTR链接字符串
    2016-03-26 03:31
    回答 1 已采纳 http://blog.hehehehehe.cn/a/1655.htm
  • 基于VB6.0 摄像头监视系统
    2015-01-21 13:15
    strFileBMP = App.Path & "\TEMP\TMP.BMP" '保存的图片文件名 strFileAVI = App.Path & "\TEMP\TMP.AVI" '保存的视频文件名 Me.sbStatusBar.Panels(1).Text = "摄像头版本：" & _ frmCamera.ezVidCap1....
  • vs vb连接mysql_vb6.0如何连接数据库
    2021-02-05 04:04
    weixin_39535287的博客 这里就这一点 深入展开，探讨在WinRT开发之初如何依据各 个编程语言的特性、功能和效率来对 产品的技术方向做出选择。 这里我选择运行计算复杂度较高的算法作为测试方法，虽然不能代表全部，但 是很大程度上展示大家...
  • VB6.0闪屏（密码为文件名）
    2014-01-06 18:17
    VB6.0制作的闪屏程序，密码为文件名（liehuo.net）
  • VB6.0中怎么根据文本长度对文本自动换行？
    2016-03-20 09:59
    回答 1 已采纳 自己计算判断下，比如 dim s as string s = 你的原始文本 dim s1 as string for i = 1 to len(s) s1 = s1 & mid(s, i,
  • 定时执行浏览器，可设定时间，VB6.0源代码.rar
    2019-07-10 03:37
    VB定时执行网页刷新的程序，简单的小程序，它可设置在不同时间范围内执行。 代码用到了传说中加密文件夹，有些代码还需注意一下： 转变为短文件名，如果目录或文件不存在就返回空。可用于判断某目录或文件是否存在...
  • 没有解决我的问题, 去提问