|
下記のSub File_search() を実行し、ワークシート(ファイル名)に旧ファイル名をセットします。新ファイル名を新たに設定し、Name old_name As new_name で書き換えました。実際のファイル名は変更されているのに、下記のSub File_search() を再実行しても変更前のファイル名しか表示されません。どこに問題があるのでしょうか。
Sub file_search()
Call find_file_clr
Set fs = Application.filesearch
With fs
look_in = ThisWorkbook.Path & "\払込票"
.LookIn = ThisWorkbook.Path & "\払込票"
.Filename = "*.csv"
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
If i > 6 Then
Exit For
End If
Worksheets("ファイル名").Select
Worksheets("ファイル名").Cells(i + 1, 2) = .FoundFiles(i)
Next i
End If
End With
End Sub
End Sub
Sub file_delset()
Dim cntr As Integer
Dim kill_name As String
'''''''''' ファイル 削除
Worksheets("ファイル名").Select
For cntr = 1 To 6 Step 1
If Worksheets("ファイル名").Cells(cntr + 1, 1) = "削除" Then
kill_name = Worksheets("ファイル名").Cells(cntr + 1, 2).Value
Kill kill_name
End If
Next
'''''''''' ファイル名 変更
For cntr = 1 To 6 Step 1
If Worksheets("ファイル名").Cells(cntr + 1, 1) = "Rename" _
And Worksheets("ファイル名").Cells(cntr + 1, 2) <> "" Then
old_name = Worksheets("ファイル名").Cells(cntr + 1, 2).Value
new_name = Worksheets("ファイル名").Cells(cntr + 1, 4).Value
Name old_name As new_name
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Call file_search
End Sub
|
|