当前位置: 代码迷 >> VB Dotnet >> 怎么判断变量文件名的文件是否存在
  详细解决方案

怎么判断变量文件名的文件是否存在

热度:298   发布时间:2016-04-25 02:00:08.0
如何判断变量文件名的文件是否存在
如何判断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 编码。
  相关解决方案