ExpandEnvironmentStrings扩展系统变量

最新推荐文章于 2023-02-14 10:11:54 发布

iteye_13378

最新推荐文章于 2023-02-14 10:11:54 发布

阅读量694

点赞数

CC 4.0 BY-SA版权

分类专栏： c++/VC

本文链接：https://blog.youkuaiyun.com/iteye_13378/article/details/81971507

c++/VC 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一个使用 C++ 在 Windows 环境下处理路径的方法。具体实现为：通过调用 ::ExpandEnvironmentStrings 函数将环境变量展开为实际路径，并附加文件名 Test.txt 到该路径中，最后检查文件是否存在。

CString csFilePathName;
::ExpandEnvironmentStrings(_T("%ProgramData%"), csFilePathName.GetBuffer(MAX_PATH), MAX_PATH);
csFilePathName.ReleaseBuffer();
csFilePathName += _T("Test.txt");
if (PathFileExists(csFilePathName))
{
    //Other operation
}

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

iteye_13378

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

API获取系统环境变量

涅槃

03-15

2006

API获取系统环境变量函数原型 WINBASEAPI DWORD WINAPI ExpandEnvironmentStringsA( IN LPCSTR lpSrc, OUT LPSTR lpDst, IN DWORD nSize ); Windows系统的环境变量： %ALLUSERSPROFILE% 列出所有用户Profi

ExpandEnvironmentStrings 函数

豆子的collection

11-29

1万+

ExpandEnvironmentStrings 函数扩展环境变量字符串，并使用当前用户定义的值来替换这些环境变量字符串。如果要为特定的用户或系统指定环境块，请使用ExpandEnvironmentStrings函数语法CopyDWORD WINAPI ExpandEnvironmentStrings( __in LPCTSTR lpSrc, __o

参与评论您还未登录，请先登录后发表或查看评论

ExpandEnvironmentStringsA( )函数

yellow的博客

06-15

3844

第一次看到这个函数感觉是新增一个环境变量，再看传入的参数又感觉不像。扩充环境字符串：将由百分号封闭起来的环境变量名转换成那个变量的内容。可以写个例子看看 #include <stdio.h> #include <windows.h> int main(int argc,char* argv, char* env) { char l_szSrcA[256]={"...

ExpandEnvironmentStrings函数的第二个参数的使用要注意

独孤龙城的专栏

09-24

2297

今天写了一个新类，然后在里面写了ExpandEnvironmentStrings这个函数的调用，灰常高兴得把类封装好了之后，拿到外部调用的时候，在delete的时候肯定会崩溃，我单步，也看了各种数据，都正常，后来我们组长看了一眼就知道了，不亏是专家。下面我上一点代码： class CFileAssociation { public: CFileAssociation(); ~CFil

扩展环境变量

weixin_34137799的博客

12-08

255

2019独角兽企业重金招聘Python工程师标准>>> ...

* 小心使用 ExpandEnvironmentStrings !!!*

WvW的专栏

04-10

3284

最近被一个bug折腾了一下,用ExpandEnvironmentStrings 获取 %appdata%正常情况下没问题, 但是当你的程序被外部程序启动时, 可能会产生获取错误的问题(非失败). 比如system给你启动. 应该用 SHGetFolderPath 获取.

Windows获取系统环境变量PathC

04-22

或者，使用Windows API中的ExpandEnvironmentStrings函数来展开这些变量。另外，用户可能需要考虑32位和64位系统的注册表重定向问题，比如在32位应用程序访问HKEY_LOCAL_MACHINE\SOFTWARE可能会被重定向到Wow6432...

易语言实现系统临时文件清理的完整代码解析

6. ExpandEnvironmentStrings：此函数用于扩展环境字符串，比如%TEMP%这样的环境变量会被扩展为实际的路径。在易语言编程中，使用这个函数可以帮助定位系统环境变量指向的路径。 7. RegCloseKey：此函数用于关闭一...

WScript.Shell对象详解：操作环境变量与注册表的关键工具

- `ExpandEnvironmentStrings`：扩展指定的环境变量（通常是 `PROCESS`），将变量替换为实际的值，并返回结果字符串。 - `Popup`：用于显示消息对话框，通常用于提示用户或提供临时反馈。 - `RegDelete` 和 `...

Sub YY() ' 声明变量（新增fileNameWithExt存储带扩展名的文件名） Dim targetGroup As String, filePath As String, fileNameWithExt As String, fileName As String Dim wsh As Object, shellApp As Object, ws As Worksheet Dim fileExist As Boolean, folderPath As String ' -------------------------- 1. 初始化与参数校验 On Error Resume Next Set ws = ActiveSheet Set wsh = CreateObject("WScript.Shell") Set shellApp = CreateObject("Shell.Application") On Error GoTo 0 If ws Is Nothing Then MsgBox "请先激活操作工作表！", vbExclamation Exit Sub End If ' 读取微信群名（B5） targetGroup = Trim(ws.Range("B5").Value) If targetGroup = "" Then MsgBox "B5单元格未填写微信群名！", vbCritical Exit Sub End If ' 读取文件路径（H1），拆分【文件夹路径】→【带扩展名的文件名】→【纯前缀文件名】 filePath = Trim(ws.Range("H1").Value) fileExist = (Dir(filePath) <> "") If filePath = "" Or Not fileExist Then MsgBox "H1单元格路径无效或文件不存在！", vbCritical Exit Sub End If ' 步骤1：拆分文件夹路径（例：C:\Users\HP\Desktop\） folderPath = Left(filePath, InStrRev(filePath, "\")) ' 步骤2：拆分带扩展名的完整文件名（例：娜250902.xlsx） fileNameWithExt = Mid(filePath, InStrRev(filePath, "\") + 1) ' 步骤3：关键修改——去掉.xlsx扩展名，只保留前缀（例：娜250902） fileName = Left(fileNameWithExt, InStrRev(fileNameWithExt, ".") - 1) ' 1. 打开文件所在文件夹，获取窗口标题（避免固定“桌面”，适配任意文件夹） shellApp.Open (folderPath) Application.Wait Now + TimeValue("0:0:2") ' 等待文件夹完全打开 Dim folderWinTitle As String folderWinTitle = wsh.ExpandEnvironmentStrings("%USERPROFILE%") ' 适配系统路径，确保获取正确窗口 folderWinTitle = Replace(folderPath, folderWinTitle, "此电脑") ' 转换为资源管理器显示的标题格式（例：此电脑\桌面） ' 2. 激活文件夹窗口，打开搜索框（按Ctrl+F快速定位搜索框，无需猜TAB次数） wsh.AppActivate folderWinTitle Application.Wait Now + TimeValue("0:0:1") wsh.SendKeys "^f", True ' 直接打开文件夹搜索框（通用操作，无需调整） Application.Wait Now + TimeValue("0:0:1") ' 3. 输入提取的fileName（无前缀）搜索，等待结果加载 wsh.SendKeys fileName, True ' wsh.SendKeys fullFileName, True wsh.SendKeys "{Enter}", True End Sub按全名列如娜20250902在文件搜索框搜索