Zum Inhalt wechseln

Als Gast hast du nur eingeschränkten Zugriff!


Anmelden 

Benutzerkonto erstellen

Du bist nicht angemeldet und hast somit nur einen sehr eingeschränkten Zugriff auf die Features unserer Community.
Um vollen Zugriff zu erlangen musst du dir einen Account erstellen. Der Vorgang sollte nicht länger als 1 Minute dauern.

  • Antworte auf Themen oder erstelle deine eigenen.
  • Schalte dir alle Downloads mit Highspeed & ohne Wartezeit frei.
  • Erhalte Zugriff auf alle Bereiche und entdecke interessante Inhalte.
  • Tausche dich mich anderen Usern in der Shoutbox oder via PN aus.
 

   

Foto

Ordner Kopieren und nach textdatei umbennen

- - - - -

  • Bitte melde dich an um zu Antworten
2 Antworten in diesem Thema

#1
phoenixx592

phoenixx592

    Script Kiddie

  • Members
  • PIPPIPPIPPIP
  • Likes
    0
  • 47 Beiträge
  • 0 Bedankt

Hey freunde ich will mich kurz halten,

ich schreibe an einem programm was:

 

1. Ordner kopieren soll in ein anderes Verzeichnis =>

2. Nun soll er genau diese datei umbennen!

3. den namen dieser Datei soll er sich aus einer .txt Datei aus der ERSTEN Zeile ziehen und dann diese Zeile in der .txt datei löschen.

 

ich komm nicht drauf wie man das macht

 

My.Computer.FileSystem.CopyDirectory(TextBox3.Text, TextBox1.Text, True)
My.Computer.FileSystem.MoveDirectory(TextBox1.Text, "Muster1")

 

das ist mein Anfang aus dem Abschnitt...



#2
Born2Hack

Born2Hack

    = B2H =

  • Elite Member
  • Likes
    369
  • 208 Beiträge
  • 415 Bedankt
1.Pack die .txt in eine array list.
& lass dir dann die erste zeile ausgeben
z.B arraylist [0]
 
2. Danach entfernst du den ersten array Eintrag und speichest die txt erneut ab.
 
    Public Function TXT2ListOfString(ByVal FullPath As String) As List(Of String)
        Dim lst As New List(Of String)
        If IO.File.Exists(FullPath) Then lst.AddRange(IO.File.ReadAllLines(FullPath, System.Text.Encoding.Default))
        Return lst
    End Function
 
   
   Public Function ListOfString2TXT(ByVal FullPath As String, ByVal lst As List(Of String)) As Boolean
        Dim f As New IO.FileInfo(FullPath)
        If f.Directory.Exists = True Then
            IO.File.WriteAllLines(FullPath, lst.ToArray, System.Text.Encoding.Default)
            Return True
        End If
        Return False
    End Function
 

q8t3oz6o.png

 

 


#3
phoenixx592

phoenixx592

    Script Kiddie

  • Members
  • PIPPIPPIPPIP
  • Likes
    0
  • 47 Beiträge
  • 0 Bedankt

Danke für deine Hilfe B2H, aber ich glaube du verstehst nicht was ich meine :D

 

(also ich habe jetzt auch noch eine listbox hinzugefugt und versuche das problem so zu lösen, denke das es so einfacher ist.)

 

zu dem problem.

 

1. ein ordner soll kopiert werden in ein anderen ordner.

2. In der Listbox wird eine Text datei geladen mit verscheidenen überschriften (sie werden nacheinader aufgelistet).

3. nun soll der kopierte ordner umbennannt werden nach Überschrift eins.

4. Eine neuer ordner soll kopiert und ebenfalls dort eingefügt werden sowie die Überschrift 2 bekommen.

 

so lange bis es keine überschriften mehr gibt (<--- das problem hab ich aber gelöst :D)





  Thema Forum Themenstarter Statistik Letzter Beitrag

Besucher die dieses Thema lesen:

Mitglieder: , Gäste: , unsichtbare Mitglieder:


This topic has been visited by 28 user(s)


    3xc3ll3nt, B1nary, Born2Hack, Brolege, Cyber Tjak, dev-0, Drew, Framerater, FullMetall, GenDrive, gutzuu, hacked, JohnR, keyb0ardz, kiwitone, Klopfer, lolorollo, mettbrot, nibble nibble, Onek, PadX18, phoenixx592, pi^2, smc2014, Take1T, tianchrispro, x1z0ng, Xenio
Die besten Hacking Tools zum downloaden : Released, Leaked, Cracked. Größte deutschsprachige Hacker Sammlung.