Question

我的程序找到并列出远程文件夹中的所有文件。同一程序可以保存创建到同一文件夹中的新文件。我可以决定文件名，但我需要程序来提供某种＆＃34; ID＆＃34;他们每个人。我希望程序能够始终计算文件夹中的文件数，并将保存的文件命名为下一个数字。

看，我文件夹中有10个文件。然后我使用New_Case事件创建一个新的。我写了一堆信息，最后点击了Save_Case事件。我希望程序将文件命名为＃34; Somename11＆＃34;

然后，由于它现在在文件夹中的11个文件我做同样的事情并创建一个新案例 - 一堆信息 - 并保存，下一个文件将被调用＆＃34; Someothername12＆＃34;。

我还没有找到任何可行的示例，但是如果文件夹中已经存在文件名，我发现了许多增加数字的地方。无论如何，我都需要增加数字。

我尝试使用每次递增的计数器，但由于此程序将由多个用户同时使用，我需要避免两个用户递增相同的数字。

因此，通过增加文件夹中的文件数量，我相信会更好。

如果它有助于解决这个问题，我无法使用

My.Computer.FileSystem.GetFiles

因为它很遥远，而且只想搜索我的电脑。

我正在使用WinSCP .NET为服务器提供SFTP。

Answer 1

这不是世界上最有效的事情，但它是实现既定目标的简单方法：

Public Function SaveWithUniqueFileName(desiredFilePath As String, contents() As Byte) As String
    Dim uniqueFilePath As String = Nothing
    Dim suceeded As Boolean = False
    For i As Integer = 1 To Integer.MaxValue
        If i = 1 Then
            uniqueFilePath = desiredFilePath
        Else
            Dim uniqueFileName As String = Path.GetFileNameWithoutExtension(desiredFilePath) & i.ToString() & Path.GetExtension(desiredFilePath)
            uniqueFilePath = Path.Combine(Path.GetDirectoryName(desiredFilePath), uniqueFileName)
        End If
        If Not File.Exists(uniqueFilePath) Then
            Try
                Using stream As New FileStream(uniqueFilePath, FileMode.CreateNew, FileAccess.Write, FileShare.None)
                    stream.Write(contents, 0, contents.Length)
                End Using
                suceeded = True
                Exit For
            Catch ex As IOException
            End Try
        End If
    Next
    If Not suceeded Then
        uniqueFilePath = Nothing
    End If
    Return uniqueFilePath
End Function

如果该方法尚不存在，则该方法将保存到所需的文件名，或者如果文件名已存在，则将该唯一编号附加到该文件名。例如，如果你这样称呼它：

 Dim data() As Byte = {72, 101, 108, 108, 111}
 Dim savedToPath As String = SaveWithUniqueFileName("C:\Test.txt", data)
 If savedToPath IsNot Nothing Then
     Console.WriteLine("Successfully saved to " & savedToPath)
 Else
     Console.WriteLine("Failed to save")
 End If

有许多改进。它应该对它的重要程度有一些限制，它应该比仅仅吃它并返回null更好地处理异常（理想情况下，消费代码会知道它失败的原因）。此外，它循环遍历从1开始的所有相同命名的文件，因此具有相同名称的文件越多，它就越慢。如果性能是一个问题，您可以通过某种方式同步所有客户端，以便它们不会同时尝试保存。这可能就像在同一文件夹中锁定单个标志文件一样简单，也可能与客户端/服务器安排有关，其中所有客户端都将请求发送到单个服务器，该服务器以有序的串行方式处理保存。无论哪种方式，这个简单的例子都是一个很好的起点。

通过目录.Net中的文件数量增加文件名编号

1 个答案: