Dir Fra : dkspeedo Vist : 317 gange 100 point Dato : 03-04-03 13:27

Hvis man nu gerne vil have, dir (F.eks. C:\Windows\Hackertool\Exe.exe) over i Text3.Text. Private Sub Command1_Click() Dim checkPath As String File1.Path = Text1.Text ' Ret dette stinavn File1.Pattern = Text2.Text File1.Refresh Dim i As Integer, txt As String For i = 0 To File1.ListCount - 1 txt = File1.List(i) Next End Sub

Kommentar Fra : emesen Dato : 03-04-03 17:24

'Så vidt jeg husker skal du Open "C:\filnavn.txt" For Output As #1 'åben fil 'din kode Print #1 'skriv til fil 'din kode Close #1 'luk fil 'noget i den retning. Emesen.

Kommentar Fra : dkspeedo Dato : 03-04-03 23:02

Forstår ikke???

Kommentar Fra : dkspeedo Dato : 04-04-03 08:44

Er der ingen andre der kan svare, så jeg også kan forstå det???

Kommentar Fra : emesen Dato : 04-04-03 09:29

Hvis der ikke er nogen på dette forum der kan svare lidt bedre så prøv: http://www.eksperten.dk Emesen.

Kommentar Fra : dkspeedo Dato : 04-04-03 09:54

Din og min kode, kan jeg ikke få til at hænge sammen. Men hvis de gør, gider du så ikke lige at forklarer. Så du flink -------------------------------------------------------------------- Private Sub Command1_Click() Dim checkPath As String File1.Path = Text1.Text ' Ret dette stinavn File1.Pattern = Text2.Text File1.Refresh Dim i As Integer, txt As String For i = 0 To File1.ListCount - 1 txt = File1.List(i) Next ------------------------------------------------------------ Open "C:\filnavn.txt" For Output As #1 'åben fil 'din kode Print #1 'skriv til fil 'din kode Close #1 'luk fil

Kommentar Fra : dkspeedo Dato : 04-04-03 10:06

Mit spørgsmål, var hvordan dir over i en textbox. og så laver du et svar, som jeg ikke forstår, og hvor dir allerede er skrivet i forvejen. Så jeg vil mene dit svar er enlendigt.

Kommentar Fra : emesen Dato : 04-04-03 12:05

ja mit svar er ikke så godt. Men for at læse og skrive til en fil skal den åbnes først, det var det jeg prøvede at vise selvom det nok ikke er godt nok. Eyvind.

Kommentar Fra : dkspeedo Dato : 04-04-03 12:37

jeg skal hverken læse eller skrive fra-til filen, jeg skal bare have øhhh adressen over i en tekstbox. er det meget svært at forstå.

Kommentar Fra : dkspeedo Dato : 06-04-03 09:50

Er der ikke nogen der kan svare?

Kommentar Fra : emesen Dato : 06-04-03 12:03

Hvis der ikke er nogen på dette forum der kan svare lidt bedre så prøv: http://www.eksperten.dk Emesen.

Kommentar Fra : dkspeedo Dato : 06-04-03 14:49

Jeg er tilmeldt kandu.dk, fordi jeg regner med at få svar. Så skal jeg faneme ikke ind til eksperten.dk, okay :(

Kommentar Fra : dkspeedo Dato : 06-04-03 14:50

Kommentar Fra : dkspeedo Dato : 10-06-03 23:18

Fuck jer alle sammen, det er da lausit at man ikke kan få et ordenligt svar .-'-.-'-.-'-.-'-.-'-.

Kommentar Fra : MadsRG Dato : 18-11-03 02:25

Hej dkspeedo. File-komponenten er lidt tung, det er bedre at bruge Dir(). Jeg har kun en text1-kontrol i eksemplet, men det går nok :) Huske at sætte "multiline = true" og "scrollbars = vertical" for text1 mens du er i design-mode. Dir() medtager de 2 indbyggede "." (denne folder) og ".." (parent folder) med i resultatet, så de skal ignoreres. =============== Dim aFile As String, DirContents As String aFile = Dir$("d:\*.exe", vbNormal) Do While Len(aFile) <> 0 Select Case aFile Case ".", ".." Case Else DirContents = DirContents & aFile & vbCrLf End Select aFile = Dir$() Loop Text1.Text = DirContents =============== Lige en tilføjelse til det med at åbne en fil. Og det er VB's dokumentation der stinker på dette punkt! Aldrig bruge #1 som filehandle da allerede kan være i brug! Husk altid at få et ledigt file-handle: Dim Fileno As Integer: Fileno = FileSystem.FreeFile Open "c:\test.txt" For Output As Fileno ... Close #Fileno

Kommentar Fra : MadsRG Dato : 18-11-03 02:26

Hov, min "End Select" skal lige rykkes en linie ned! Ellers virker det ikke :)

Du har følgende muligheder

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.