VB转VB.NET 2005问题，大家进来研究下
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
这段是VB的代码,谁帮我转成VB.NET 2005，因为比较急，所以上来求救了.谢谢
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
SHGe
相关问答：
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Expli ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
请各位指点下：程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
