189 8069 5689
不明白你为什么要二进制读取声音文件，VB可以直接调用API播放声音文件，不需要你二进制来读取声音文件的。
为普兰店等地区用户提供了全套网页设计制作服务，及普兰店网站建设行业解决方案。主营业务为成都网站设计、网站制作、普兰店网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
Private
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放的文件名(带路径)
'playCount 播放的次数
'JianGe 多次播放时,每次的时间间隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe 1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 16 + 1
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub
Private Sub Form_Click()
PlayWavFile "C:\aaa.wav", 1, 1000 '参数：播放文件，播放次数，播放间隔
End Sub
临时文件通常用于临时性的数据存储和操作，比如在存储用户数据、参数选择、会话信息、应用程序缓存等类型的信息。
为了在VB.NET中获取临时文件的文件名，我建议使用Path类的GetTempFileName方法，尽管创建临时文件的方法有很多种，但是最佳的方案是使用System.IO.Path，因为它可以在当前用户的临时目录中返回唯一的文件名，您可以使用该文件名命名的文件来存储临时信息。
需要注意的是，如果多次调用该方法，那么每次都会生成不同的文件名，即使您没有使用这些文件名。这样做是为了防止不同的应用软件之间的冲突。
在列表A的示例代码中，我定义了字符串变量sTempFileName，并将System.IO.Path.GetTempFileName方法的返回值赋值给该变量，这样我就拥有了一个可以使用的临时文件名，然后我创建一个FileStream对象——fsTemp，同时向系统发出请求来创建文件，这个临时文件使用的正是sTempFileName中所存储的文件名。文件创建完成之后，我就开始向文件中添加数据（例子中没有展示这部分代码），然后将这个文件关闭。
根本不用那么麻烦！
界面中添加一个Button和RichTextBox控件（自带的），双击后添加以下代码：
RichTextBox1.LoadFile("F:\临时文件\123.txt", RichTextBoxStreamType.PlainText)
就这么简单的一句，比用什么EOF去判断文件尾巴好多了
一般放在你的可执行文件的目录下，也有放在系统的路径下，
还可放在任意目录下，不过要在path中设置路径。
使用了VB.NET开发一个访问excel读取数据并修改的小程序，有一些经验性的东西和大家共享，如果有误还请大家指正。
大致分为这样几个部分来说明：
1、 准备部分：
准备部分我们需要添加excel library的引用到工程中：我使用office2003，它的库文件为 Microsoft excel 11.0 object library。如果使用excel2000，那么它使用的是Microsoft excel 9.0 object library。
有需要时，我们添加Imports 命名空间。
我在这个程序中只是访问了excel的数据，不需要命名空间了哈。
2、 声明一些对象：
这些对象并不是都需要，前面三个应该有，后面的，你需要什么对象就声明：
Dim excelapp As Excel.Application ‘声明一个application对象
Dim excelworkbook As Excel.Workbook ‘声明一个工作簿对象
Dim excelsheet As Excel.Worksheet ‘声明一个工作表对象
等等…如：
Dim excelrange As Excel.Range ‘声明一个范围对象
3、 访问一个excel文件：
excelapp = New Excel.Application
excelworkbook = excelapp.Workbooks.Open(strfile) ‘访问到工作簿：这个strfile 是文件的路径，我从打开文件对话框中得到的。
excelsheet = excelworkbook.Sheets.Item(1) ‘访问到工作表：item使用索引值来得到sheet对象的引用
excelsheet.activate
我们可以得到此文件中的值：
定义一个string变量：
Dim strcellvalue as string
Strcellvalue=excelsheet.cells(1,1).value ‘得到A1单元格的内容。
修改的时候反过来就可以了：
excelsheet.cells(1,1).value= Strcellvalue
4、 善后：
在程序的每一个退出口操作excel对象，保存或者不保存：
Excelworkbook.save
Excelworkbook.close
Excelapp=nothing
5其它：
需要注意~上面的代码需要一些容错机制，比如：
If Not excelworkbook Is Nothing Then 这样的话来达到程序的正确运行
需要判断现在excel又没有打开。如果有excel进程正在运行。你的代码很可能会影响到打开的excel，像Excelworkbook.close这样的语句虽然前面已经很好的唯一指定了工作簿，但不能很武断的进行鲁莽的操作，我们需要判断现在excel的运行情况。
另外，VB.NET 读取Excel 2007的xlsx文件和读取老的.xls文件是一样的，都是用Oledb读取,仅仅连接字符串不同而已。读取xlsx 用的是Microsoft.Ace.OleDb.12.0;具体操作方法如下：
Public Shared Function GetExcelToDataTableBySheet(ByVal FileFullPath As String, ByVal SheetName As String) As DataTable
'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + FileFullPath + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此连接只能操作Excel2007之前(.xls)文件
Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + FileFullPath ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"
'此连接可以操作.xls与.xlsx文件
Dim conn As New OleDbConnection(strConn)
conn.Open()
Dim ds As New DataSet()
Dim odda As New OleDbDataAdapter(String.Format("SELECT * FROM [{0}]", SheetName), conn)
'("select * from [Sheet1$]", conn);
odda.Fill(ds, SheetName)
conn.Close()
Return ds.Tables(0)
End Function
读取Excel文件时，可能一个文件中会有多个Sheet，因此获取Sheet的名称是非常有用的。根据Excel物理路径获取Excel文件中所有表名的具体操作方法如下：
Public Shared Function GetExcelSheetNames(ByVal excelFile As String) As [String]()
Dim objConn As OleDbConnection = Nothing
Dim dt As System.Data.DataTable = Nothing
Try
'string strConn = "Provider=Microsoft.Jet.OleDb.4.0;" + "data source=" + excelFile + ";Extended Properties='Excel 8.0; HDR=NO; IMEX=1'"; //此连接只能操作Excel2007之前(.xls)文件
Dim strConn As String = ("Provider=Microsoft.Ace.OleDb.12.0;" "data source=") + excelFile ";Extended Properties='Excel 12.0; HDR=NO; IMEX=1'"
'此连接可以操作.xls与.xlsx文件
objConn = New OleDbConnection(strConn)
objConn.Open()
dt = objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
If dt Is Nothing Then
Return Nothing
End If
Dim excelSheets As [String]() = New [String](dt.Rows.Count - 1) {}
Dim i As Integer = 0
For Each row As DataRow In dt.Rows
excelSheets(i) = row("TABLE_NAME").ToString()
i += 1
Next
Return excelSheets
Catch
Return Nothing
Finally
If objConn IsNot Nothing Then
objConn.Close()
objConn.Dispose()
End If
If dt IsNot Nothing Then
dt.Dispose()
End If
End Try
End Function