Click here to Skip to main content
15,924,193 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: How to make a service Pin
Dave Kreskowiak17-Aug-04 3:42
mveDave Kreskowiak17-Aug-04 3:42 
GeneralRe: How to make a service Pin
Murtuza Husain Miyan Patel17-Aug-04 6:16
professionalMurtuza Husain Miyan Patel17-Aug-04 6:16 
GeneralRe: How to run Vb app as a service Pin
Murtuza Husain Miyan Patel17-Aug-04 6:18
professionalMurtuza Husain Miyan Patel17-Aug-04 6:18 
GeneralRe: How to run Vb app as a service Pin
Dave Kreskowiak18-Aug-04 12:16
mveDave Kreskowiak18-Aug-04 12:16 
GeneralSearching HD for files of type Pin
Kevnar16-Aug-04 17:50
Kevnar16-Aug-04 17:50 
GeneralRe: Searching HD for files of type Pin
S Sansanwal16-Aug-04 18:19
S Sansanwal16-Aug-04 18:19 
GeneralRe: Searching HD for files of type Pin
Kevnar16-Aug-04 18:27
Kevnar16-Aug-04 18:27 
GeneralRe: Searching HD for files of type Pin
S Sansanwal16-Aug-04 18:36
S Sansanwal16-Aug-04 18:36 
My mistake, check code in VB.NET

Dim files As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String
Dim ext As String
path = "C:\Documents and Settings"
ext = ".doc"
Dim dirInfo As New System.IO.DirectoryInfo(path)
LoopDirectory(dirInfo, ext)
Dim sw As New System.IO.StreamWriter("C:\1.txt")
For Each file As String In files
sw.WriteLine(file)
Next
sw.Close()

End Sub
Private Sub LoopDirectory(ByVal dirInfo As System.IO.DirectoryInfo, ByVal extension As String)
For Each file As System.IO.FileInfo In dirInfo.GetFiles()
If (file.Extension.ToLower() = extension.ToLower()) Then
files.Add(file.FullName)
End If
Next
For Each dir As System.IO.DirectoryInfo In dirInfo.GetDirectories()
LoopDirectory(dir, extension)
Next

End Sub

Sanjay Sansanwal
www.sansanwal.com
GeneralRe: Searching HD for files of type Pin
Anonymous16-Aug-04 18:31
Anonymous16-Aug-04 18:31 
GeneralRe: Searching HD for files of type Pin
Kevnar16-Aug-04 20:22
Kevnar16-Aug-04 20:22 
QuestionReloading a form? Pin
Glisson16-Aug-04 16:28
Glisson16-Aug-04 16:28 
AnswerRe: Reloading a form? Pin
S Sansanwal16-Aug-04 18:07
S Sansanwal16-Aug-04 18:07 
GeneralTrack user clicks in a menu Pin
and_vb16-Aug-04 15:36
and_vb16-Aug-04 15:36 
GeneralRe: Track user clicks in a menu Pin
Dave Kreskowiak16-Aug-04 18:22
mveDave Kreskowiak16-Aug-04 18:22 
GeneralProtection via registry .. need help Pin
AbuFahed16-Aug-04 14:34
AbuFahed16-Aug-04 14:34 
GeneralRe: Protection via registry .. need help Pin
Dave Kreskowiak16-Aug-04 18:21
mveDave Kreskowiak16-Aug-04 18:21 
GeneralCompact and repair Pin
benjj16-Aug-04 13:19
benjj16-Aug-04 13:19 
GeneralRe: Compact and repair Pin
Anonymous16-Aug-04 14:12
Anonymous16-Aug-04 14:12 
GeneralRe: Compact and repair Pin
Dave Kreskowiak16-Aug-04 18:20
mveDave Kreskowiak16-Aug-04 18:20 
GeneralRe: Compact and repair Pin
benjj17-Aug-04 3:03
benjj17-Aug-04 3:03 
GeneralHelp with Windows Media 9 in VB Pin
Kevnar16-Aug-04 10:07
Kevnar16-Aug-04 10:07 
GeneralRe: Help with Windows Media 9 in VB Pin
Jim Matthews16-Aug-04 10:17
Jim Matthews16-Aug-04 10:17 
GeneralRe: Help with Windows Media 9 in VB Pin
Kevnar16-Aug-04 11:04
Kevnar16-Aug-04 11:04 
GeneralCell range of embedded worksheet in Word document Pin
Member 119356216-Aug-04 8:19
Member 119356216-Aug-04 8:19 
GeneralQuark file Pin
XGaMeS16-Aug-04 7:33
XGaMeS16-Aug-04 7:33 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.