vb6.0怎么打开跟程序在同一个目录下的文件夹？

我这个目录随便放那里随便放什么地方或者其他电脑.U盘.光盘都能打开文件夹，求这代码怎么写，我是小白，麻烦说清楚一点啊。谢谢了

举报该文章

相关建议 2013-08-30

Private Sub Form_Load()
    Text1 = ""
    On Error GoTo Err
    Dim strSj As String
    'æå¼æä»¶
    Open App.Path & "\wenjian.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strSj
        Text1 = Text1 & strSj & vbCrLf
    Loop
    Close #1
Err:
End Subè¿½é®

è¿½ç

æå¼æä»¶å¤¹å¹²åç¨ï¼

è¿½é®

çéé¢çææ¡£ï¼å ä¸ªææ¡£

è¿½çOption Explicit
   Private Declare Function ShellExecute Lib "shell32.dll" Alias _
   "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal _
   lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As _
   String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
   Call ShellExecute(0, "Open", "explorer.exe", App.Path & "\mulujia", vbNullString, 1)
End Sub

ä»¥ä¸ä»£ç æ¯æå¼åç§°ä¸ºmulujiaçç®å½å¤¹çã

è¿½é®

è¿½ç

ç»ä¸ªå®ä¾å·¥ç¨ã

è¿½é®

æä¹æå¼ç¨åºæå¨çç®å½å¢ï¼

è¿½çPrivate Sub Command2_Click()
Call ShellExecute(0, "Open", "explorer.exe", App.Path & "", vbNullString, 1)
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/2s6cxhc06.html

其他看法

第1个回答 2013-08-30

哦，很容易啊：

Private Sub Form_Load()
'打开文件夹
Shell "explorer """ & App.Path & """ "
End Sub

vb6.0怎么打开跟程序在同一个目录下的文件夹?
或 Call ShellExecute(0, "Open", "explorer.exe", iif(len(app.path)>3,app.path & "\\",app.path) & "mulujia", vbNullString, 1)就可以了。请采纳！谢谢！

VB6.0如何实现打开文件
VB6.0使用CommonDialog 控件弹出对话框选择文件路径。通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。下例显示“打开”对话框然后在信息框中...

vb中什么控件可以显示一个目录下的文件和文件夹,怎么添加此控件_百度知 ...
该例子为选中的驱动器和目录显示一文件列表。要试用此例，先将以下代码粘贴到包含 DriveListBox、DirListBox、和 FileListBox 控件的窗体的声明部分。然后按下 F5 键。使用鼠标来改变驱动器或目录。Private Sub Drive1_Change ()Dir1.Path = Drive1.Drive '设置目录路径。End Sub Private Sub Dir...

vb6.0如何打开指定文件夹里的exe文件,例如C:\\软件\\.exe不知道文件名只...
Dim r As String r = Dir("C:\\软件\\*.exe")shell "C:\\软件\\"+r 以上代码只能用于该文件夹中只有一个EXE文件时。

vb6.0如何设置一个按钮可以同时打开exe和lnk文件
打开快捷方式：Dim strFileName As String strFileName = 路径名 & "\\" & "快捷方式文件名称.lnk"Shell "rundll32 url.dll,FileProtocolHandler " & Chr(34) & strFileName & Chr(34), vbNormalFocus 打开文件：strFileName = 路径名 & "\\" & "程序.exe"Shell strFileName,1 ...

怎么才能打开vb6.0精简版中编程代码?
你说的是不能直接双击打开吗？那你先打开vb，然后在vb的文件-打开中打开vbp文件呢?还有是否有一些文件丢失了，以后注意同一个程序的代码要保存在同一个文件夹，以免丢失。

VB6.0做的应用点击按钮打开应用所在目录
Shell "C:\\windows\\explorer.exe " & App.Path, vbNormalFocus 打开软件自身所在目录。这里的shell需要绝对的explorer.exe文件路径，可能系统不是安装在C盘就出问题了，你可以使用API函数来获得windows的安装路径来替换C:\\windows\\。百度 VB WINDOWS目录 U盘的问题需要你使用FileObjectSystem来获得...

VB6.0打开目录代码
Open s & File1.FileName For Input As #1 '打开文本文件 Text1.Text = ""While Not EOF(1)'循环读取直到文件结束 Line Input #1, s Text1.Text = Text1.Text & s & vbCrLf Wend Close #1'关闭文件 End If If UCase(Right(File1.FileName, 4)) = ".JPG" Or UCase(Right(File1....

...在安装目录下也不知道找哪个文件运行VB6.0?望高手指点
1、在开始菜单中应该有Microsoft Visual Basic6.0中文版或者Microsoft Visual Studio这样的子菜单，在那里面就应该有运行Visual Basic6.0的程序 2、如果你是默认的安装路径安装的，那么应该在C:\\Program Files\\Microsoft Visual Studio\\下找相应的文件夹，例如：VB98、miniVB6.0等文件夹，运行程序名一般...

VB怎么实现选择路径,打开路径?
VB6.0可使用CommonDialog 控件实现选择路径、打开路径。通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似代码实例：Private Sub Command1_Click...

相似回答

大家正在搜