Please Help

[Motoxpro]

how would i make a file name show up in a textbox and it u clicked it it would go to the file like if i wanted to copy it to a dif dir

[jestes]

Do you know the location of the file?

If so, just do this: Text1.text = "C:\YourFile"

If you don't know, use a common dialog box control

and to copy, use the FileCopy function.

[Motoxpro]

how would i load all the file names in a 1 dir.....beacause all urs does is make text show up

[Motoxpro]

HEEEEEEEEEEEEEEEEEEEEEELLLLLLLLLLLLLLLLLLLLLLPPP!!!!!!!!!!!!!!!

[Motoxpro]

HELP!!!!!!!!!!!

[peet]

Why not use a FileListBox ?

It will show u all files in a given folder, and that is what u want ? or?

[Motoxpro]

no not like that i mean get all the files to show up in a textbox and be able to select amy1 of thos files and copy r delete it

[peet]

well u should not use a textbox.
use a listbox

[peet]

try this

Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As String) As Long
    Private Const LB_DIR = &H18D
    Private Const DDL_READWRITE = &H0
    Private Const DDL_READONLY = &H1
    Private Const DDL_HIDDEN = &H2
    Private Const DDL_SYSTEM = &H4
    Private Const DDL_DIRECTORY = &H10
    Private Const DDL_ARCHIVE = &H20
    Private Const DDL_DRIVES = &H4000
    Private Const DDL_EXCLUSIVE = &H8000
    Private Const DDL_POSTMSGS = &H2000
    Private Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY Or DDL_HIDDEN Or DDL_SYSTEM
 
 
Private Sub Command1_Click()
    Dim r As Long
    r = SendMessageStr(List1.hwnd, LB_DIR, DDL_FLAGS, "C:\*.*")
End Sub
 
Private Sub List1_Click()
    MsgBox List1.Text
End Sub

[Motoxpro]

code dont work and i mean i dont want a list box look ill c if i can explain it to u a little better


ok u have a textbox right? and now all i want to do is load the fille names in from a folder.. say i put my exe in the folder and wanted to load all the file names in that folder into the textbox in my exe. i wanted it to be where i could click the load button my my exe and it would load all the file names in that folder in the textbox in my exe.,, then i would be able to select any 1 of thos file names and copy it to another dir or delete it all together.......if u still dont get it tll em


or maybe i should u a lable insted of a text box


thx

[Motoxpro]

here i a pic http://photos.yahoo.com/bc/sther40ku...src=ph&.view=t

[peet]

Ok, still not sure I understand,(I'm a bit slow )

This will add all files found in a given folder to a textbox

Private Sub Command1_Click()
    Dim sFile As String
    Dim s As String
    sFile = Dir(App.Path & "\") 
    Do While sFile <> ""
        s = s & sFile & vbCrLf
        sFile = Dir
    Loop
    Text1.Text = s
End Sub

make sure that the textbox multiline prop is sat to true

is that how u want it?

[peet]

hmm... the picture is not shown ?

[Motoxpro]

ok thats is....but can i do that with a label and can u make it where it would be like

filename.*
filename.*
filename.*




u c what i am saying and could u make it where i could click on the filename and be able to delete it and copy it

and i think i will make that textbox in the pic a label

[Motoxpro]

OPPPPPPPS i was supsed to use lstbox sry man i think i found some code:

Use a listbox and fill it on form load:

Private Sub Form_Load()
Dim strfile As String

strfile = Dir$("C:\My Documents\*.*")
Do While strfile <> ""
List1.AddItem strfile
strfile = Dir$()
Loop
End Sub

To use the files, select from the listbox

Private Sub List1_Click()
Dim strfile As String

strfile = List1.Text
' to delete
Kill (strfile)
'to copy
'You will need to supply the path
FileCopy strfile, "Copy of " & strFile
End Sub

[peet]

heh glad u realized

the sample I posted earlier will aslo do the trick

Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As String) As Long
    Private Const LB_DIR = &H18D
    Private Const DDL_READWRITE = &H0
    Private Const DDL_READONLY = &H1
    Private Const DDL_HIDDEN = &H2
    Private Const DDL_SYSTEM = &H4
    Private Const DDL_DIRECTORY = &H10
    Private Const DDL_ARCHIVE = &H20
    Private Const DDL_DRIVES = &H4000
    Private Const DDL_EXCLUSIVE = &H8000
    Private Const DDL_POSTMSGS = &H2000
    Private Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY Or DDL_HIDDEN Or DDL_SYSTEM
 
 
Private Sub Command1_Click()
    Dim r As Long
    r = SendMessageStr(List1.hwnd, LB_DIR, DDL_FLAGS, "C:\*.*")
End Sub
 
Private Sub List1_Click()
    MsgBox List1.Text
End Sub

u said it didn't work, but it does. U must have done something wrong

[Motoxpro]

where do i post the top part of u code?

[peet]

U should put it in the General Declarations area of u'r form
ie at the top in the code view of a form.

or u can declare it as public and place it in a module

[Motoxpro]

awwww man that code is GREAT just what i needed now all i have to do is figure out how to make it like if i select a file in there i would be able to copy it

[peet]

Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As String) As Long
    Private Const LB_DIR = &H18D
    Private Const DDL_READWRITE = &H0
    Private Const DDL_READONLY = &H1
    Private Const DDL_HIDDEN = &H2
    Private Const DDL_SYSTEM = &H4
    Private Const DDL_DIRECTORY = &H10
    Private Const DDL_ARCHIVE = &H20
    Private Const DDL_DRIVES = &H4000
    Private Const DDL_EXCLUSIVE = &H8000
    Private Const DDL_POSTMSGS = &H2000
    Private Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY Or DDL_HIDDEN Or DDL_SYSTEM
 
Private sFileToCopy As String
Private sPath As String
 
Private Sub Command1_Click()
    Dim r As Long
    sPath = "C:\DATA\DOCS\"
    r = SendMessageStr(List1.hwnd, LB_DIR, DDL_FLAGS, sPath & "*.DOC")
End Sub
 
Private Sub Command2_Click()
    'copy the file :)
    FileCopy sPath & List1.Text, "C:\TMP\" & List1.Text
End Sub

[Motoxpro]

i cant get that 1 to work says path not foun even if i put like FileCopy sPath & List1.Text, "C:\" & List1.Text like that

[Motoxpro]

peet u there?

[Motoxpro]

C:\

[Motoxpro]

nm i was tryin to copy b4 i loaaded the files in silly me but now when i try to load the files in nothing shows up in the list box

[peet]

send me the code, and I'll have a look or just upload the code here

[Motoxpro]

ok i got every thing working now hust to add the fiishing tuches.......how would i make it where u could find ur own dir to load the files from.....beacuase the peeps m giving it to arnt gunna have the code and how would i make it cut instead of copy and how would i make it where u ould select 1 of thos files and delete it thx man if u answer thse this all the questions i have for this prograam thx

[Motoxpro]

Option Explicit
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As String) As Long
    Private Const LB_DIR = &H18D
    Private Const DDL_READWRITE = &H0
    Private Const DDL_READONLY = &H1
    Private Const DDL_HIDDEN = &H2
    Private Const DDL_SYSTEM = &H4
    Private Const DDL_DIRECTORY = &H10
    Private Const DDL_ARCHIVE = &H20
    Private Const DDL_DRIVES = &H4000
    Private Const DDL_EXCLUSIVE = &H8000
    Private Const DDL_POSTMSGS = &H2000
    Private Const DDL_FLAGS = DDL_ARCHIVE Or DDL_DIRECTORY Or DDL_HIDDEN Or DDL_SYSTEM
 
Private sFileToCopy As String
Private sPath As String
 
Private Sub Check1_Click()
 
End Sub
 
Private Sub Check2_Click()
 
End Sub
 
Private Sub Command1_Click()
   'copy the file
    FileCopy "C:\Program Files\Mx Track Pro\Unloaded\" & List1.Text, "D:\MCM2\TERAFORM\NATIONAL\" & List1.Text
End Sub
 
Private Sub Command2_Click()
    Dim r As Long
    sPath = "D:\MCM2\TERAFORM\NATIONAL\"
    r = SendMessageStr(List1.hwnd, LB_DIR, DDL_FLAGS, sPath & "*.env")
End Sub
 
 
Private Sub Command3_Click()
 
End Sub
 
Private Sub Command4_Click()
'copy the file
FileCopy sPath & List1.Text, "C:\Program Files\Mx Track Pro\Unloaded\" & List1.Text
End Sub
 
Private Sub Command5_Click()
 
End Sub
 
Private Sub Command6_Click()
FileLen ("C:\Program Files\Mx Track Pro\Unloaded\1tall.env")
End Sub
 
Private Sub Command7_Click()
 
Unload Me
 
End Sub
 
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub
 
Private Sub List1_Click()
 
End Sub

that is the whole program......still debugging a little

[Motoxpro]

i

[Motoxpro]

oppss i pushed submit....but is that what u want

[Motoxpro]

peet u there??

[microant]

Originally posted by Motoxpro
how would i load all the file names in a 1 dir.....beacause all urs does is make text show up

Use chdir to change your current directory to the directory you want to search for.
Than call dir("*.*") for searching files, it will return the first file name under current dir, and you can call it continue with no parameters for getting next filename.

[Motoxpro]

have u read the post i aready got all the code for that

[Motoxpro]

peet u there man......been 2 days

[peet]

jepp ... I'm here, how far in u'r dev. are u now?

[Motoxpro]

well im pretty much done now but i did the layout a little difernt and i make a text box and a button so u could just type in the right dir there.......only thing now is how to get it to reset like if i try to load 2 dirs the 2nd 1 i load will be right after the first 1 and i want it to reset.......and.....how would imake check boxes acualy work

[Motoxpro]

because i got most all the stuff working and everey thing just need to add the finishing tuches like i said