如何判断media.txt内列表的文件是否存在,怎么判断都提示不存在,但如果把变量改成文件名就提示存在
media.txt内容如下,
ASDFG.MP3
ADDFG.MP3
ASFFG.MP3
ASHFG.MP3
代码如下:
Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Private Sub Command1_Click()
Dim i As Integer, M As String, FullFileName As String, sz As String
i = FreeFile
Open "d:\ftp-media\work\cfg\media.txt" For Input As #i
Do While Not EOF(i)
Line Input #i, M
If PathFileExists("D:\ftp-media\work\media\" & M & "") = "1" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
Loop
Close #i
End Sub
------解决思路----------------------
你用记事本打开media.txt,然后另存为,对话框下面的当前编码是不是 Unicode?
VB6只支持 ANSI 编码。