0

これについての助けを探しているだけです。私はいくつかの異なることを試しましたが、困惑しています。ファイルがディレクトリに存在するかどうかを確認しようとしています。存在する場合は- Copy、ファイル名にaddという名前を変更します。次に、競合があるかどうかを再度確認し、競合がない場合はファイルを移動する必要があります。簡単そうに聞こえますが、まったく機能していません。Stringからに変換できないため、DirectoryInfo複数の変数を宣言する必要があり、それは正しくないと感じます。これを修正するにはどうすればよいですか？

Dim fileExt As String = ""

Dim oldFileName As String = file.FullName
Dim newFileName As String = oldFileName
Dim newFileLocation = Environment.GetSpecialFolder(Environment.SpecialFolder.MyPictures) + "\" + file.Name

While FileIO.FileSystem.FileExists(newFileLocation) 'While File exists in new directory
    'Add copy to filename
    fileExt = fileType.Replace("*", "")
    newFileName = newFileName.Remove(newFileName.LastIndexOf("."), (newFileName.Length - newFileName.LastIndexOf(".")))
    newFileName += " - Copy"
    newFileName += fileExt

    'Rename file
    FileSystem.Rename(oldFileName, newFileName)

    'Declare a new DirInf variable because I can't use a string to set one
    Dim newFile As New DirectoryInfo(newFileName)

    'Move the new file to 
    newFile.MoveTo("C:\Users\" + Environ("USERNAME") + "\Pictures\")
    ProgressBar.Value += 1
End While
4

1 に答える 1

1

File.Move()あなたは2つの文字列を取るを探しています。

また、"C:\Users\" + Environ("USERNAME") + "\Pictures\"非常に間違っています。C:多くのユーザーはドライブを持っていません。
あなたは電話する必要がありますEnvironment.GetSpecialFolder(Environment.SpecialFolder.MyPictures)

于 2013-01-02T20:03:24.740 に答える