QQ登录

只需一步,快速开始

查看: 280|回复: 3
收起左侧

快捷 打开目标文件夹

[复制链接]
累计签到:67 天
连续签到:10 天
发表于 2025-3-18 11:24:38 | 显示全部楼层 |阅读模式
Sub 打开客户文件夹()
    Dim sPath As String
    Dim sName As String
    Dim sName1 As String
    Dim oShell As Object
    sPath = "\\mynas\YNAS\nexthy\客户唛头"    ' 标红的内容换成自己存放客户文件的路径名称
    j = InputBox("输入客户文件夹,以首位大写字母缩写,若打开目标文件则中间需以“-”隔开,后面加上模糊文件名称")
    If j <> "" Then
    If InStr(j, "-") = 0 Then
    sName = "\" & Dir(sPath & "\" & j & "*", vbDirectory)
    Else

   
游客,本付费内容需要支付 1印币 才能浏览支付





更多图片 小图 大图
组图打开中,请稍候......

华印网相关搜索

累计签到:480 天
连续签到:11 天
发表于 5 天前 | 显示全部楼层
下来玩玩   感觉多少还要有点用处
回复 支持 反对 送花

使用道具 举报

累计签到:167 天
连续签到:2 天
发表于 昨天 08:35 | 显示全部楼层
确实很快速打开文件夹,方便。
回复 支持 反对 送花

使用道具 举报

累计签到:17 天
连续签到:12 天
发表于 昨天 08:38 | 显示全部楼层
又涨新知识了,谢谢。
回复 支持 反对 送花

使用道具 举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关闭

注意注意注意:必看上一条 /1 下一条

华印网 - 华印社区
Share More 周一至周日:09:00 - 21:00
华印网旗下的设计印刷制作类专业技术站点
请勿发布违反国家法律法规的内容,会员观点不代表本站立场
企鹅群号:119572101

华印网汇集印前印后技术、PDF拼版、防伪包装、数码印刷、合版印刷、图文设计、平面设计、数码印刷及CTP等最新印刷技术,提供软件汉化、插件汉化、cdr插件、ai插件、ps插件、pdf插件、印刷流程、ctp输出、印刷软件、印能捷、esko、CorelDRAW、InDesign、Illustrator、CTP、CDR以及PDF软件下载的综合性印刷论坛社区!

Powered by Discuz! X3.4 © 2001-2021,Tencent Cloud.

站点地图|小黑屋|手机版|Archiver|华印 ( 粤ICP备19020152号-1 )

GMT+8, 2025-3-26 21:15 , Processed in 0.185873 second(s), 25 queries , Gzip On, Yac On.

快速回复 返回顶部 返回列表