乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 61|回复: 3

[求助]如何得到某一文件的路径?

[复制链接]

11

主题

17

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2005-4-2 09:06:00 | 显示全部楼层 |阅读模式
如何得到某一文件的路径?
我用VBA编程,想调用某一EXCEL文件,但我只知道文件的名称,不能完全确定这一文件的存储路径,请高手指教如何通过编程获得该文件的路径,以便能对该文件进行操作.谢谢!
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2005-4-2 16:06:00 | 显示全部楼层
我只知道文件的名称,不能完全确定这一文件的存储路径?不明白。如果你指该文件在搜索路径内,调用LISP的findfile或用Windows API函数搜索所有路径。
回复

使用道具 举报

11

主题

17

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2005-4-3 08:45:00 | 显示全部楼层
请高手指点一下GetFullPathName函数的用法:
       
       
Private        Declare        Function        GetFullPathName&        Lib        "kernel32"        Alias        "GetFullPathNameA"        (ByVal        lpFileName        As        String,        ByVal        nBufferLength        As        Long,        ByVal        lpBuffer        As        String,        lpFilePart        As        Long)       
Private        Sub        Command3_Click()       
                                        Dim        filename        As        String       
                                        Dim        filelength        As        Long       
                                        Dim        fullname        As        String       
                                        Dim        addres        As        string
dim dwgname as string       
                                        filename        =        "jxj1.txt"       
                                        filelength        =        50       
                                        dwgname=GetFullPathName(filename,        filelength,        fullname,        addres)       
                                        Debug.Print        fullname       
End        Sub       
以上语句不能得到fullname的值,请指出正确用法,谢谢!
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2005-4-3 22:43:00 | 显示全部楼层
Private Declare Function GetFullPathName Lib "kernel32.dll" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
Private Sub Command3_Click()
                                 Dim FileName As String
                                 Dim Buffer As String
                                 Dim numChar As Long
                                 FileName = "jxj1.txt"
                                 Buffer = Space(255)
                                 numChar = GetFullPathName(FileName, 255, Buffer, "")
                                 Buffer = Left(Buffer, numChar)
                                 Debug.Print Buffer
End Sub
上面的api函数不能符合你的意图,它只是将当前路径与指定的文件名合并成文件全名,甚至不验证文件的存在与否。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 21:58 , Processed in 2.356520 second(s), 61 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表