Möchte ein Kompliziertes Programm Bauen (das Pfads in Textdateien schreibt)

RRP-Extasy · 24. Juni 2011, 23:19

Hallo,
Ich möchte ein Programm bauen, bei dem man einen Startordner angeben kann, und dieses dann Alle
Pfads in dem Ordner in eine Textdatei schreibt machen/coden.
Doch wie soll ich soetwas anstellen nen Button, ne Textbox, Progressbar, und so weiter.???

Bitte um Hilfe!
RRP-Ecstacy

Quellcode

well · 24. Juni 2011, 23:50

Kannst du programmieren oder nur GUIs zusammenklicken?

Edit:
Wenn der erste Punkt zutrifft ... Google spuckt u.a. folgende Links aus:
shadoware.de/vb/foreachsubpath.html
msdn.microsoft.com/de-de/library/1t4kyezf.aspx

Wenn der zweite Punkt zutrifft (wie ich vermute):
Lern programmieren.

RRP-Extasy · 24. Juni 2011, 23:52

Öhm was sind das denn xD?

well · 24. Juni 2011, 23:59

RRP-Extasy schrieb:

Öhm was sind das denn xD?

Wie bitte?

RRP-Extasy · 25. Juni 2011, 09:42

Ah, Danke Große Hilfe^^

jimmy · 25. Juni 2011, 10:22

Du machst dem VB-Kindergarten wirklich alle Ehre ...

RRP-Extasy · 25. Juni 2011, 11:16

Naja also ich hab da noch sone Bitte wenn sich das mal Jemand anschauen kann
und zwar wollte ich das das alle Pfads in ein Textdokument schreibt aber so wirklich gehen tut das nicht (siehe Anhang/Link)

Sheldon · 25. Juni 2011, 11:56

Bitte benutz die Syntax Funktion von dem Board und poste deinen Quellcode.

Und das mit dem Erstellen deiner *.txt ist auch ein bisschen blöd gelöst. Man kann doch programmieren, dass eine Datei erstellt wird.

Mit freundlichen Grüßen

Sheldon

well · 25. Juni 2011, 12:00

Lern die Grundlagen oder, wenn du gar nicht programmieren möchest, beauftrage einen Programmierer mit der Aufgabe ...

RRP-Extasy · 25. Juni 2011, 12:35

Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Sub ForEachSubPath(ByVal StartFolder As String)
Dim sName As String
Dim FileName As String
Dim FolderName As String
Dim Dirs() As String
Dim DirsNo As Integer
Dim i As Integer
'Eventuell Backslash anhängen
If Right(StartFolder, 1) <> "C:\psordner" Then StartFolder = StartFolder & "C:\psordner"
'Alle Dateien des Verzeichnisses auflisten
sName = Dir(StartFolder & "C:\psordner")
While Len(sName) > 0
FileName = StartFolder & sName 'Filename enthält dann die aktuelle Datei
'Hier Ihren Code für jede Datei einsetzen...
sName = Dir()
End While
'Alle Unterverzeichnisse in Array einlesen
DirsNo = 0
sName = Dir(StartFolder, vbDirectory)
While Len(sName) > 0
If sName <> "." And sName <> ".." Then
DirsNo = DirsNo + 1
ReDim Preserve Dirs(DirsNo)
Dirs(DirsNo - 1) = sName
End If
sName = Dir()
End While
My.Computer.FileSystem.WriteAllText("C:\psordner\pstext.txt",
"This is new text to be added.", True)
For i = 0 To DirsNo - 1
FolderName = StartFolder & Dirs(i) & "C:\psordner"
ForEachSubPath(FolderName)
'Hier Ihren Code für jedes Verzeichnis einsetzen...
Next
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Function Right(ByVal StartFolder As String, ByVal p2 As Integer) As String
Throw New NotImplementedException
End Function
End Class

Alles anzeigen

Ich weiss das dieser Zeitpunkt ein wenig ungelegen ist aber mir ist dass sehr wichtig.
Leider kann ich nicht so wirklich gut damit Arbeiten

MFG
Ecstacy

ujlr · 25. Juni 2011, 16:15

Ja, klar. Wenn dir das auch nur ansatzweise wichtig wäre, dann wärst du schon längst aus deiner geistigen Hängematte aufgestanden, und schon fleißig dabei dir Wissen anzulesen und die Grundlagen zu lernen.

Möchte ein Kompliziertes Programm Bauen (das Pfads in Textdateien schreibt)

Möchte ein Kompliziertes Programm Bauen (das Pfads in Textdateien schreibt)

Quellcode

RRP-Extasy schrieb:

Quellcode

Teilen

Tags