Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Dateipfade aus Datei auslesen mit VB.net

Frage Entwicklung Visual Studio

Mitglied: Haegar75

Haegar75 (Level 1) - Jetzt verbinden

05.12.2008, aktualisiert 09.12.2008, 5032 Aufrufe, 6 Kommentare

Hallo Leute,
ich würde gerne mit vb.net eine Datei auslesen in der Dateipfade stehen, die mit Kommas getrennt sind. Die dort angebenen Dateien möchte ich dann vom Netzlaufwerk auf die lokale Platte kopieren. Hat jemand ne Idee?
Vielen Dank im voraus!

Gruß Haegar
Mitglied: bastla
05.12.2008 um 20:05 Uhr
Hallo Haegar75!

Etwa so:
01.
Const Liste As String = "D:\Dateipfade.txt" 
02.
Const Ziel As String = "D:\TEMP" 
03.
 
04.
Dim FS As Object = My.Computer.FileSystem 
05.
Dim Datei As String 
06.
Dim Dateien As String = FS.ReadAllText(Liste) 
07.
 
08.
For Each Datei In Split(Dateien, ",") 
09.
    If FS.FileExists(Datei) Then 
10.
        FS.CopyFile(Datei, Ziel & "\" & FS.GetName(Datei), True) 
11.
    Else 
12.
        MsgBox( _ 
13.
            "Die Datei" & vbCrLf & vbCrLf & _ 
14.
            Datei & _ 
15.
            vbCrLf & vbCrLf & "konnte nicht gefunden werden!", _ 
16.
            MsgBoxStyle.Critical, _ 
17.
            "Datei nicht gefunden ...") 
18.
    End If 
19.
Next
Ev bereits bestehende Zieldateien werden überschrieben.

Grüße
bastla
Bitte warten ..
Mitglied: Haegar75
07.12.2008 um 15:29 Uhr
Danke! Da kann ich erstmal weiterbasteln!
Bitte warten ..
Mitglied: Haegar75
08.12.2008 um 16:30 Uhr
Hi,
paar Tücken haben sich noch aufgetan..
-am Zeilenende steht hinter dem trennenden Komma noch ein & um dem Linker zu sagen, dass es in der nächsten Zeile weitergeht. Wie kann ich das aus dem Filestream filtern um es zu ignorieren?
-der letzte Eintrag ist ,U:\SPK\SPKA0057.lib to XXXXXXXX.LNK wobei alles nach dem .lib nicht dazugehören soll..

Wie kann ich unter vb.net festellen ob ein Netzlaufwerk verbunden (erreichbar) ist?
Bitte warten ..
Mitglied: bastla
09.12.2008 um 01:25 Uhr
Hallo Haegar75!

Mit den entsprechenden Ergänzungen könnte das dann etwa so aussehen:
01.
Const Liste As String = "D:\Dateipfade.txt" 
02.
Const Ziel As String = "D:\TEMP" 
03.
 
04.
Dim FS As Object = My.Computer.FileSystem 
05.
Dim Datei As String 
06.
Dim Dateien As String = FS.ReadAllText(Liste) 
07.
 
08.
Dateien = Replace(Dateien, ",&", ",") 'überflüssige "&" außerhalb eines Dateipfades entfernen 
09.
Dim P As Long = InStrRev(Dateien, ".lib", , CompareMethod.Text)) 
10.
If P > Len(Dateien) - 20 Then 
11.
    'hinter ".lib" abschneiden, falls nahe dem Dateiende (innerhalb der letzten 20 Zeichen) 
12.
    Dateien = Left(Dateien, P + Len(".lib") - 1) 
13.
End If 
14.
 
15.
If Not FS.DirectoryExists(Ziel) Then 'Zielordner vorhanden? 
16.
    MsgBox( _ 
17.
        "Der Ordner" & vbCrLf & vbCrLf & _ 
18.
        Ziel & _ 
19.
        vbCrLf & vbCrLf & "ist nicht verfügbar!", _ 
20.
        MsgBoxStyle.Critical, _ 
21.
        "Ordner nicht gefunden ...") 
22.
Else 
23.
    For Each Datei In Split(Dateien, ",") 
24.
        If FS.FileExists(Datei) Then 
25.
            FS.CopyFile(Datei, Ziel & "\" & FS.GetName(Datei), True) 
26.
        Else 
27.
            MsgBox( _ 
28.
                "Die Datei" & vbCrLf & vbCrLf & _ 
29.
                Datei & _ 
30.
                vbCrLf & vbCrLf & "konnte nicht gefunden werden!", _ 
31.
                MsgBoxStyle.Critical, _ 
32.
                "Datei nicht gefunden ...") 
33.
        End If 
34.
    Next 
35.
End If
Grüße
bastla
Bitte warten ..
Mitglied: Haegar75
09.12.2008 um 13:00 Uhr
1000 Dank! Leider bringt das "FS.FolderExists" eine Exception "Der offentliche Member FolderExists für den Typ FileSystemProxy wurde nicht gefunden." Sollte aber doch das gleiche Objekt sein wie FS.CopyFile oder?
Gruß Haegar
Bitte warten ..
Mitglied: bastla
09.12.2008 um 13:21 Uhr
Hallo Haegar75!

Sorry - da ist mir VBS dazwischengekommen ...

Mit "FS.DirectoryExists" sollte es gehen (ändere ich auch gleich oben).

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Batch & Shell
gelöst PowerShell, Log Datei auslesen, bei Änderungen E-Mail senden (12)

Frage von swissbull zum Thema Batch & Shell ...

Visual Studio
gelöst VB.Net - Problem mit Umleitung der Standard-Ausgabe (4)

Frage von emeriks zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (25)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...