Solved

Get file name

Posted on 2003-10-23
6
170 Views
Last Modified: 2011-04-14
Good Afternoon!
I have lot of files in a folder which I need to transfer their names to a TXT or Excel file. How do I do it without coping their names manually (one by one)?
I appreciate your help.

best regards,
0
Comment
Question by:bsamaan
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 9

Expert Comment

by:Dang123
ID: 9608166
Look at the Dir Function in VB help
0
 
LVL 9

Expert Comment

by:Dang123
ID: 9608275
Somethis like this is what I had in mind


Private Sub Form_Load()
    MsgBox ListFiles("C:\")
End Sub

Public Function ListFiles(ByVal strPath As String) As String
    Dim strWork As String
    Dim strReturn As String
   
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
   
    strWork = Dir(strPath, vbNormal + vbDirectory)
       
    Do While strWork <> ""   ' Start the loop.
        ' Ignore the current directory and the encompassing directory.
        If strWork <> "." And strWork <> ".." Then
            ' Use bitwise comparison to make sure MyName is a directory.
            If (GetAttr(strPath & strWork) And vbDirectory) = vbDirectory Then
                strReturn = strReturn & "[" & strWork & "]" & vbCrLf
            Else
                strReturn = strReturn & strWork & vbCrLf
            End If
        End If
        strWork = Dir   ' Get next entry.
    Loop
    ListFiles = strReturn
End Function
0
 
LVL 9

Expert Comment

by:Dang123
ID: 9608283
You could save the returned string to a file or work with it as you need.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 9

Accepted Solution

by:
Dang123 earned 250 total points
ID: 9608310
If this is a one shot, you could also just use a DOS command like this to get a listing into a text file


dir /b > c:\list.txt


(This works on Win2000, if you have problems with the /b on your system, remove it.)
0
 
LVL 5

Expert Comment

by:JCinDE
ID: 9608327
If you just need a text file, you can use this command at a DOS prompt:

  DIR /B > DIRCONTENTS.TXT

The the DIRCONTENTS.TXT file will contain your list. The /B parameter means 'bare' so it dumps the file names and nothing else.

For doing it in VB, look into the FileSystemObject. It allows you to open a folder and then loop through its contents:


    Dim FSO As New FileSystemObject
    Dim MyFolder As Folder
    Dim MyFile As File
   
    Set MyFolder = FSO.GetFolder("C:\Folder Name")
   
    For Each MyFile In MyFolder.Files
        'Now you have access to all kinds of information about the
        'files in the folder including the file name
        Debug.Print MyFile.Name
    Next

Here's a link with all the info about the FileSystemObject:

    http://msdn.microsoft.com/library/en-us/script56/html/FSOoriFileSystemObject.asp

Hope it helps!
-JC
0
 
LVL 5

Expert Comment

by:JCinDE
ID: 9608341
I forgot to mention, you'll need to add a reference to "Microsoft Scripting Runtime" to use the FileSystemObject.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question