一个获取文件名的问题

Question

取得文件名后，比如说存在字符串NAME中吧dim i as integerfor i=1 to len(name)
    if mid(name,i,1)="." then
        name=mid(name,1,i-1)
    end if
next i

Answer 1

Public Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer

Answer 2

可以自己写函数用米Left截取啊
dim Pos as Integer
dim Temp as String
Temp="winword.exe"
Pos=Instr(Temp,".")
Left(Temp,Pos-1)

Answer 3

工程菜单 引用Micoroft Scripting Runtime
Dim FileManager As New FileSystemObject
Dim StrTemp As StringStrTemp = Filemanager.GetAbsolutePathName("文件路经和名称")
其它的文件操作：复制、删除、全名、扩展名称等等功能很全
给分拉，不给不帮忙拉

Answer 4

可以自己写函数用米Left截取啊
dim Pos as Integer
dim Temp as String
Temp="winword.exe"
Pos=Instr(Temp,".")
Left(Temp,Pos-1)

Answer 5

如果文件名称中有2个或更多的.不就不行了吗。
应该从右到左去判断，dim i as integer
dim strMainName as stringstrmainname=filename
for i=1 to len(filename)
    if right(strmainname,1)="." then
strmainname=left(strmainname,len(strmainname)-1)
        exit for
    else 
       strmainname=left(strmainname,len(strmainname)-1)'减1个字符
    end if
next itext1.text=strmainname

Answer 6

引用Micoroft Scripting Runtime
Dim FileManager As New FileSystemObject
Dim StrTemp As String StrTemp =Filemanager.GetAbsolutePathName("文件路径和名称")
其他文件的复制、删除、查找、等操作皆可完成
想要操作文件，就应该学习如何使用FileSystemObject

Answer 7

Function Get_file_name(Full_Name As String) As StringDim point As Integer                          '指示小数点的位置'获得小数点在文件明中间的位置
point = InStr(Full_Name, ".")                 
'左截取文件主名并返回
Get_file_name = Left(Full_Name, point)End Function

Answer 8

想要详细的资料，到MSDN上搜索FileSystemObject
给我分哦，要不下次不帮忙哦，呵呵
视金钱如分土，视分数如命根

Answer 9

使用楼上的那些截取.的方法不可取，文件就一定有一个小数点？？？
而且，有些微软的扩展名称是绝对隐藏的，你怎么取小数点啊？？
找我的做吧；呵呵，毕竟FileSystemObject有这么多人用啊

Answer 10

startpos=intstrrev(fullfilename,"\")
endpos=intstrrev(fullfilename,".")
filename=mid(fullfilename,startpos+1,endpos-startpos)
我就是用这种方法取得文件的文件名称的

Answer 11

简单点：Public Function FileBaseName(ByVal strFileName As String) As String
        
        If Len(strFileName) > 3 Then 'x:\a.bbb
            If Mid(strFileName, 2, 2) = ":\" Then
                'a.bbb
                strFileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\"))
                If InStr(strFileName, ".") <> 0 Then
                    FileBaseName = Left(strFileName, InStrRev(strFileName, ".") - 1)
                Else
                    FileBaseName = strFileName
                End If
            Else
                FileBaseName = ""
            End If
        Else
            FileBaseName = ""
        End If
    
End Function

Answer 12

我认为是最简单的方法：
public function GetFileName(FullName as string)as string
dim i as integer
i=instrrve(fullname,".")
if i<>0 then
getfilename=left(fullname,i-1)
else
getfilename=fullname
end if
end function

Answer 13

i=instrrve(fullname,".")
改为
i=instrrev(fullname,".")

Answer 14

Dim sFileName As String
sFileName=App.Path+"."