Question

VB读取一个文件夹里的TXT文件

怎么读取一个文件夹里的随机名字的TXT文件名，并调用这个文件名！TXT文件名是 wmp-2012xxxxX.txt类似的！然后发送到邮箱里！最好是后台静默运作的！如果前台也可以！

Answer 1

添加引用 Microsoft Scripting Runtime

Dim fso As New FileSystemObject
Dim fts As TextStream
Dim fp As String
Dim rst As String

fp = "c:\a.txt"
Set fts = fso.OpenTextFile(fp, ForReading, False, TristateUseDefault)
rst = fts.ReadAll
set fts=Nothing
set fso=Nothing
MsgBox rst

追问

怎么读取一个文件夹里的随机名字的TXT文件名，并调用这个文件名！TXT文件名是以 wmp-2012xxxx开头的

Answer 2

Function ReadTXT(TXTFile As String) As String
Dim FD() As Byte
Open TXTFile For Binary As #1
ReDim FD(1 To LOF(1)) As Byte
Get #1, , FD
Close #1
ReadTXT = StrConv(FD, vbUnicode): Erase FD
End Function

追问

怎么读取一个文件夹里的随机名字的TXT文件名，并调用这个文件名！TXT文件名是以 wmp-2012xxxx开头的
我想用VB把这个日志文件发送到指定邮箱，邮箱的代码搞的差不多了，就是这个随机文件名头疼。而且想做到静默运行，不影响前台工作！