Læg _1 til filnavnet, når der uploades filer med samme navn ?

FileInfo fileToCopy = new FileInfo(@"C:\xxxx\fil.txt");
            string dir = @"C:\xxxx\";
            if (File.Exists(fileToCopy.FullName)) {
                string filename = Path.GetFileNameWithoutExtension(fileToCopy.FullName);
                int counter = 0;
                string tmpfile = string.Empty;
                while (true) {
                    counter++;
                    tmpfile = filename + "_" + counter.ToString() + Path.GetExtension(fileToCopy.FullName);
                    if (!File.Exists(dir+tmpfile)) break;
                }
                fileToCopy.CopyTo(dir + tmpfile);
            }

Du kan så lige skrive det pænere til..
Jeg satte bare hurtigt logikken sammen..
Det burde være okay.

ellers spørg.

Hele programmet i en consol app.

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;

namespace LocateFreeName {
    class Program {
        static void Main(string[] args) {
            FileInfo fileToCopy = new FileInfo(@"C:\xxxx\fil.txt"); //RET MIG
            string dir = @"C:\xxxx\"; //RET MIG
            if (File.Exists(fileToCopy.FullName)) {
                string filename = Path.GetFileNameWithoutExtension(fileToCopy.FullName);
                int counter = 0;
                string tmpfile = string.Empty;
                while (true) {
                    counter++;
                    tmpfile = filename + "_" + counter.ToString() + Path.GetExtension(fileToCopy.FullName);
                    if (!File.Exists(dir+tmpfile)) break;
                }
                fileToCopy.CopyTo(dir + tmpfile);
            }
        }
    }
}

Kanon kalp ;D men glemte at skrive, jeg koder i VB og ikke C# og at det skal bruges på en hjemmeside, så forstår ikke lige helt det med "consol app" og hvordan jeg skal relatere det til det jeg har i forvejen, hvor jeg bruger OutputPath og fileUpload1 til at lave stien til filen og output'et ?

Vi være rart hvis du lige ville forklare det for mig kalp :)

Skrevet om til VB.

test det af.. der er ikke så meget og sige.
I min kode er dette den vigtige for dig.
fileToCopy.CopyTo(dir + tmpfile)

som svarer til din

fileUpload1.SaveAs(OutputPath & strFileName)


Imports System.IO

Partial Class _Default
    Inherits System.Web.UI.Page
    Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fileToCopy As New FileInfo("C:\xxxx\test.xml")
        Dim dir As String = "C:\xxxx\"
        If File.Exists(fileToCopy.FullName) Then
            Dim filename As String = Path.GetFileNameWithoutExtension(fileToCopy.FullName)
            Dim counter As Integer = 0
            Dim tmpfile As String = String.Empty
            While (True)
                counter += 1
                tmpfile = filename + "_" + counter.ToString() + Path.GetExtension(fileToCopy.FullName)
                If File.Exists(dir + tmpfile) = False Then
                    Exit While
                End If
            End While
            fileToCopy.CopyTo(dir + tmpfile)
        End If
    End Sub
End Class

Mange tak ;D nu virker det! har lavet det sådan her

If Not (fileUpload1 Is Nothing) Then
            If File.Exists(fileUpload1.FileName) Then
                Dim filename As String = Path.GetFileNameWithoutExtension(fileUpload1.FileName)
                Dim counter As Integer = 0
                Dim strFileName As String = String.Empty

                While (True)

                    counter += 1
                    strFileName = filename & "_" & counter.ToString() + Path.GetExtension(fileUpload1.FileName)
                    If File.Exists(OutputPath & strFileName) = False Then
                        Exit While
                    End If

                End While

                strFileName = Replace(strFileName, " ", "_")
                strFileName = Replace(strFileName, "æ", "ae")
                strFileName = Replace(strFileName, "ø", "oe")
                strFileName = Replace(strFileName, "å", "aa")

                fileUpload1.SaveAs(OutputPath & strFileName)
                Return True
            End If
        End If

        Return False

    End Function

Men Kunne så godt tænke mig, at få det nye filnavn retuneret, så jeg kan bruge det til indskrivningen i databasen samt min Thumbnail ReSize function.

PT. retunere den "True" som jeg ikke kan ændre til strFileName, uden at få fejlen "kan ikke ændres til boolean" ?

Hvordan Giver jeg dig de 200point for at have løst mit problem :) ?

For at give mig point skal du markere mit navn i boksen nede i venstre hjørne:) Mit navn står i en boks som du kan trykke på. Efterfølgende trykker du bare på knappen "Accepter svar":)

I øvrigt kan jeg ikke se hele din kode.. Det ser i hvertfald ikke sådan ud.
(programmere ikke VB.NET).

men jeg vil mene at din function ender med noget lignende:
Public Function metodenavn() As Boolean

Det skal ændres til:

Public Function metodenavn() As String

og så kan du skrive Return strFileName
:)

Nej det er hele min kode og nu kører det bare, mange tak for de hurtige svar kalp :)

ingen årsag og tak for point:)

Man må kunne erstatte if & while med kun while.

            string fnm = @"C:\z.cs";
            string first = Path.Combine(Path.GetDirectoryName(fnm), Path.GetFileNameWithoutExtension(fnm));
            string last = Path.GetExtension(fnm);
            string tmpfnm = fnm;
            int n = 0;
            while (File.Exists(tmpfnm))
            {
                n++;
                tmpfnm = first + "_" + n + last;
            }
            Console.WriteLine(tmpfnm);

og

            Dim fnm As String = "C:\z.cs"
            Dim first As String = Path.Combine(Path.GetDirectoryName(fnm), Path.GetFileNameWithoutExtension(fnm))
            Dim last As String = Path.GetExtension(fnm)
            Dim tmpfnm As String = fnm
            Dim n As Integer = 0
            While File.Exists(tmpfnm)
                n += 1
                tmpfnm = first & "_" & n & last
            End While
            Console.WriteLine(tmpfnm)