Application.FileDialogを使用してVBAでファイルの名前を変更する

Question

VBAを使用する私のスクリプトはファイルをディレクトリに移動します。そのファイル名がすでにターゲットディレクトリに存在する場合、移動が実行される前にソースファイル（移動されているファイル）の名前を変更するように求められます。

すでに他のファイルがディレクトリに存在していることをユーザーに知らせたいから（すでにそこにある別のファイルの名前を選択しないように）、私の考えは、ディレクトリの内容をリストするFileDialogボックスを開くことですユーザーがFileDialogボックスのネイティブな名前変更機能を使用できるようにします。次に、ソースファイルとターゲットファイルの名前が同じでなくなるまで、そのFileDialogをループします。

はここにいくつかのサンプルコードです：

Sub testMoveFile() 

Dim fso As FileSystemObject 
Dim file1 As File 
Dim file2 As File 
Dim dialog As FileDialog 

Set fso = New FileSystemObject 
fso.CreateFolder "c:\dir1" 
fso.CreateFolder "c:\dir2" 
fso.CreateTextFile "c:\dir1\test.txt" 
fso.CreateTextFile "c:\dir2\test.txt" 
Set file1 = fso.GetFile("c:\dir1\test.txt") 
Set file2 = fso.GetFile("c:\dir2\test.txt") 

Set dialog = Application.FileDialog(msoFileDialogOpen) 

While file1.Name = file2.Name 
    dialog.InitialFileName = fso.GetParentFolderName(file2.Path) 
    If dialog.Show = 0 Then 
     Exit Sub 
    End If 
Wend 

file1.Move "c:\dir2\" & file1.Name 

End Sub 

しかし、私はFILE2の名前を変更し、「OK」をクリックすると、私はエラーを取得する：その後、

Run-time error '53': File not found 

とデバッガに行くことというの値を示していますfile2.nameは<File not found>です。

私はここで何が起こっているのか分かりません - ファイルの名前が変更されたらオブジェクト参照が失われていますか？ターゲットディレクトリ内のすべてのファイルを表示するダイアログから名前を変更できるようにする簡単な方法はありますか？私はまた、ファイルの既定の新しい名前を提供したいと思いますが、私はこの方法を使用して私はそれをやってみることができません。

編集：この時点では、関連するファイル名で入力されたリストボックスと新しい名前を入力するための既定値を持つ入力ボックスを持つユーザーフォームを作成しています。しかし、ファイルの名前が変更されたらオブジェクト参照を保持する方法はまだわかりません。

Answer 1

ここでは、Application.FileDialogを使用してユーザーが選択したファイル名を返します。おそらく、ユーザーが提供した価値を引き出すことを示しているので、役立つでしょう。

EDIT：[ファイルを開く]ダイアログではなく[名前を付けて保存]ダイアログに変更しました。

Sub TestFileDialog() 
    Dim Dlg As FileDialog 
    Set Dlg = Application.FileDialog(msoFileDialogSaveAs) 

    Dlg.InitialFileName = "D:\Temp\Testing.txt" ' Set suggested name for user 
               ' This could be your "File2" 

    If Dlg.Show = -1 Then 
    Dim s As String 
    s = Dlg.SelectedItems.Item(1) ` Note that this is for single-selections! 
    Else 
    s = "No selection" 
    End If 
    MsgBox s 
End Sub 

編集2：コメントに基づいて、私はあなたの望むものとまったく同じように見えるサンプルをまとめました。同じファイルを "D：\ Temp"から "D：\ Temp \ Backup"に何度も何度もコピーしない限り、変数の割り当てを変更する必要があります。 :)

Answer 2

私はノックしたが、基本的には異なる角度から見ています。あなたは、ユーザーフォームにコンボボックスを置くことができ、ユーザーが入力するアイテムをリストすることができます。きれいではありませんが、より堅牢にするのはあなたのためのスタートです。私は、ディレクトリcハードコードされている：ここに\を、これは、この情報がお役に立てば幸い

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, 
     ByVal Shift As Integer) 

Dim varListing() As Variant 
Dim strFilename As String 
Dim strFilePart As String 
Dim intFiles As Integer 

ComboBox1.MatchEntry = fmMatchEntryNone 

strFilePart = ComboBox1.Value 

strFilename = Dir("C:\" & strFilePart & "*.*", vbDirectory) 

Do While strFilename <> "" 
    intFiles = intFiles + 1 
    ReDim Preserve varListing(1 To intFiles) 
    varListing(intFiles) = strFilename 
    strFilename = Dir() 
Loop 

On Error Resume Next 
ComboBox1.List() = varListing 
On Error GoTo 0 

ComboBox1.DropDown 

End Sub 

テキストボックスから来ることができました。エラーの再開時には、次に実行するのが最善の方法ではありませんが、この例では、バリアントにファイルがない場合にエラーを停止します。