RenameFile 在某些计算机上将扩展名加倍

Question

我有一个简单的项目运行ning 在两台计算机上独立运行。它重命名一堆文件并通过 ftp (FluentFTP) 上传它们。在我的开发计算机上这工作正常

img00012.jpg -> myPicture_001_summer.jpg
img00014.jpg -> myPicture_002_summer.jpg
img00015.jpg -> myPicture_003_summer.jpg
img00018.jpg -> myPicture_004_summer.jpg

在另一个上它加倍了文件扩展名

img00012.jpg -> myPicture_001_summer.jpg.jpg
img00014.jpg -> myPicture_002_summer.jpg.jpg
img00015.jpg -> myPicture_003_summer.jpg.jpg
img00018.jpg -> myPicture_004_summer.jpg.jpg

我使用的代码本质上是这样的：

Dim filesToCopy As New Dictionary(Of String, List(Of String))
For Each fil In files
    dim ftpFolder = calcFtpFolder(fil)             'returns e.g. "/mySubFolder/"
    dim newName = calcNewName(fil, nbr)            'returns e.g. "myPicture_001_summer"
    My.Computer.FileSystem.RenameFile(fil.FullName, newName + fil.Extension)
    filesToCopy(ftpFolder).Add(fil.DirectoryName + "\" + newName + fil.Extension)
Next fil

For Each kvp In filesToCopy
  Dim filelist = kvp.Value
  Dim remoteDir = kvp.Key
  ftp.UploadFiles(filelist, remoteDir, .....)
Next

两台计算机运行都在更新的 windows10x64 上。有没有人遇到过类似的事情？我应该在哪里调查？

Answer 1

可能两者都是这样：img00012.jpg -> myPicture_001_summer.jpg.jpg，因为您在其中一台计算机上勾选了“隐藏已知文件的扩展名”。

因此，打开 Windows 资源管理器 > See/View > 选项 > See/View > 隐藏已知文件的扩展名（可能有点不同，我的语言不是 EN）。

RenameFile 在某些计算机上将扩展名加倍

RenameFile doubles the extension on some computers

vb.net

windows-10

filesystems