2

私が書いたコードはファイル名をシートに表示できますが、表示されるときに拡張子を削除したいです。少し修正する必要があることはわかっていますが、オプションを試してみました。誰かが私が逃したコードをどこに正確に追加しなければならないか教えてもらえますか? 以下のコードの私の試み。ネット上には同様の問題がたくさんありますが、見つけることができません。よろしくお願いします....

Option Explicit
Sub fileNames_in_folder()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Dim fldpath
Dim fld As Object, fil As Object, fso As Object, j As Long
 fldpath = "C:\"
   On Error Resume Next
Thisworkbook.Sheets("1").Activate
'start count row
    j = 11
Set fso = CreateObject("scripting.filesystemobject")
Set fld = fso.getfolder(fldpath)
    For Each fil In fld.Files
'here I have to add something due to expell the ".extension" 
Cells(j, 34).Value = fso.GetBaseName(fil.path)
'count behaviour
    j = j + 1
  Next
Columns("AH").AutoFit
End Sub
4

2 に答える 2

9

GetBaseName Methodで取得できる拡張子なしのファイル名:

Cells(j, 34).Value = fso.GetBaseName(fil.path)
于 2013-05-26T21:14:35.677 に答える
0 
If InStrRev(fil.Path, ".") <> 0 Then
   Cells(j, 34).Value = Left(fil.Path, InStrRev(fil.Path, ".") - 1)
End If

「。」の存在を前提としています。ファイル名に.
つまり、C:\Test.txt は C:\Test として表示されます。

于 2013-05-26T21:16:37.047 に答える