Wie man den Namen einer Datei in VB?

Ich eine Suche Programm für die Suche eine Liste von Dateien in einen computer und dann kopieren Sie die Datei in einem Ordner speichern. Der name der Datei könnte sein: "*11*2.txt" so lange, Wie das Programm Sie finden dieses Muster, es sollte kopieren in den store-Ordner. Das problem ist, dass ich weiß nicht, die genau den Namen der Datei, bevor die Suche, und ich will nicht, um die Datei umzubenennen, ich weiß nicht, wie die Datei zu speichern. Bitte helfen Sie

Benutze ich folgende Datei finden, die Ihre Arbeit

Public Sub DirSearch(ByVal sDir As String, ByVal FileName As String)
    Dim To_Path As String
    To_Path = Form1.TextBox5.Text
    For Each foundFile As String In My.Computer.FileSystem.GetFiles(sDir, FileIO.SearchOption.SearchAllSubDirectories, FileName)
        Copy2Local(foundFile, To_Path)
    Next
End Sub

Hier ist die aktuelle version des Copy2Local (Hinweis: es ist nicht richtig)

    Public Sub Copy2Local(ByVal Copy_From_Path As String, ByVal Copy_To_Path As String)
    ' Specify the directories you want to manipulate.

    Try
        Dim fs As FileStream = File.Create(Copy_From_Path)
        fs.Close()


        ' Copy the file.
        File.Copy(Copy_From_Path, Copy_To_Path)
    Catch

    End Try
End Sub

Vielen Dank für Ihren Vorschlag. VB sagt, dass es nicht finden können, die Copy_To_Path. Ich Copy_To_Path als Ordner-Namen, die falsch ist. Es sollte der name einer Datei sein. Allerdings weiß ich nicht, wie soll ich es als Datei-name, wenn ich eine Suche von "abc.txt" (Anmerkung: ich möchte zu halten, was das Programm suchen. In anderen Worten, wenn das Ergebnis ab1c.txt ich will kopieren Sie diese Datei in den store-Ordner umbenennen). Dank

InformationsquelleAutor Marco | 2012-09-04

vb.net

4

Zunächst sollten Sie überprüfen, ob ToPath ist ein gültiges Verzeichnis, da es aus einem TextBox:
```
Dim isValidDir = Directory.Exists(ToPath)
```
Zweite, die Sie verwenden können Path.Combine um einen Pfad zu erstellen von separaten (unter -) Verzeichnisse oder Datei-Namen:
```
Dim copyToDir = Path.GetDirectoryName(Copy_To_Path)
Dim file = Path.GetFileName(Copy_From_Path)
Dim newPath = Path.Combine(copyToDir, file)
```
http://msdn.microsoft.com/en-us/library/system.io.path.aspx

_{(disclaimer: getippt vom Handy aus)}
- Ich geben Sie Ein a-plus. Klare und einfache
InformationsquelleAutor Tim Schmelter
0

Deine Frage zu beantworten: Sie können die Datei-Namen mit Pfad.GetFileName. Beispiel:
```
Dim fileName As String = Path.GetFileName(foundFile)
```
Jedoch, es gibt ein paar andere Dinge, die falsch mit Ihrem code:
1. Hier,
```
Dim fs As FileStream = File.Create(Copy_From_Path)
fs.Close()
```
  sind Sie überschreiben Quelldatei. Dies scheint nicht wie eine gute Idee. 😉
2. Und hier,
```
Try
    ...
Catch
    ' Do Nothing
End Try
```
  Du schmeißt exceptions, die helfen würde, Sie zu finden und zu diagnostizieren Probleme. Tun Sie das nicht. Es macht Debuggen ein Alptraum.
- Vielen Dank für Ihren Vorschlag
InformationsquelleAutor Heinzi

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.