VB将程序本身复制到改用户的桌面上

王朝知道·作者佚名  2010-04-04
窄屏简体版  字體: |||超大  举报/纠错
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

如题

參考答案:

'要生成EXE以后才可以自己复制自己,调试的时候会提示找不到文件

Option Explicit

Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long

Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long

Const DESKTOP = &H0&

Const MAX_LEN = 200

Private Sub Command1_Click()

Dim sTmp As String * MAX_LEN

Dim nLength As Long

Dim pidl As Long

SHGetSpecialFolderLocation 0, DESKTOP, pidl

SHGetPathFromIDList pidl, sTmp

FileCopy App.Path & "\" & App.EXEName & ".EXE", Left(sTmp, InStr(sTmp, Chr(0)) - 1) & "\" & App.EXEName & ".EXE"

End Sub

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
举报/纠错
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005-2025 王朝網路 版權所有 聯絡我們導航