13518219792
Vb不是人机对话窗口，而是编程工具，可以编写代码进行调试执行或者生成可执行文件。
成都创新互联公司长期为超过千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为吉水企业提供专业的成都做网站、网站制作，吉水网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
用Visual Studio .Net开发"Hello World!"程序：
我们知道"Hello World"一般是命令行程序，而这种程序在Visual Studio .Net中被称为"控制台程序"。下面是Visual Studio .Net编写控制台"Hello World！"程序的具体步骤：
（1）、启动Visual Studio .Net。
（2）、选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
（3）、将【项目类型】设置为【Visual Basic项目】。
（4）、将【模板】设置为【控制台应用程序】。
（5）、在【名称】文本框中输入【Hello World】。
（6）、在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，则Visual Studio .Net会按照上面设定的参数创建一个控制台应用程序项目，具体如图01所示。
图01："Hello World"控制台程序的【新建项目】界面
（7）、在【解决方案资源管理器】窗口中，双击Module1.vb文件，进入Module1.vb文件的编辑界面。
（8）、Visual Studio .Net已经为产生Main()函数。在系统创建的Main()函数中加入下面一行代码就可以了：
Console.WriteLine ("Hello World!")
（9）、选择【文件】|【保存Module1.vb】菜单或者按快捷键Ctrl＋S，保存所做的修改。
（10）、此时单击快捷键Ctrl＋F5运行程序就可以得到图02所示运行界面：
添加一个SaveFileDialog，在保存excle选择时候添加
SaveFileDialog1.show（）
用法跟OpenFileDialog相同
运行一个可执行程序，并且如果该程序仍然在运行，则返回一个包含该程序的进程
ID
的整数。
Public
Function
Shell(
_
ByVal
PathName
As
String,
_
Optional
ByVal
Style
As
AppWinStyle
=
AppWinStyle.MinimizedFocus,
_
Optional
ByVal
Wait
As
Boolean
=
False,
_
Optional
ByVal
Timeout
As
Integer
=
-1
_
)
As
Integer
参数
PathName
必选。String。要执行的程序的名称，以及任何必选的参数和命令行开关。PathName
也可以包含驱动器和目录路径或文件夹。
如果您不知道程序的路径，可以使用
My.Computer.FileSystem.GetFiles
方法进行查找。例如，调用
My.Computer.FileSystem.GetFiles("C:\",
True,
"testFile.txt")
可以返回驱动器
C:\
上任意处的名称为
testFile.txt
的每个文件的完整路径。
Style
可选。AppWinStyle。从
AppWinStyle
枚举中选择的值，指定要在其中运行程序的窗口的样式。如果省略
Style，则
Shell
将使用
AppWinStyle.MinimizedFocus，它启动程序后最小化并带有焦点。
Wait
可选。Boolean。指示
Shell
函数是否应等待程序完成的值。如果省略
Wait，Shell
将使用
False。
Timeout
可选。Integer。Wait
为
True
时要等待的毫秒数。如果省略
Timeout，则
Shell
使用
-1
表示没有超时，并且
Shell
直到程序完成才会返回。因此，如果省略
Timeout
或将其设置为
-1，则
Shell
可能永远不会将控制返回您的程序。
如果你要获得显示的结果，我知道的方法是使用一个dos管道（名字玄乎，实际上没什么）
在命令的最后加一个
(filename)
这样这个命令所有的显示结果就背记录在(filename)里面了
比如
dir
a.txt
这样dir显示的结果就是背全部记录在a.txt里面
把D:\test\目录下的所有jpg文件重命名为pic###.jpg的代码：
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
For Each f In fd.Files
If LCase(f.ShortName) Like "*.jpg" Then
f.Name = "pic" Format(i, "000") ".jpg"
i = i + 1
End If
Next
如果文件名已确定，可以用Set f=fs.GetFile("[完整路径和文件名]")，然后用f.Name="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚，“已知文件名的若干文件”到底是什么样的文件名，有没有什么规律？是否在同一文件夹下？或者是否已将文件名存放在一个字符串数组中？不说清楚别人怎么能帮你，只能给你一个实现的思路了
