When using io.FileInfo.name Files with Japanese characters are ignored : VB.net

Experts Exchange

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

10/20/2009 at 05:57AM PDT, ID: 24826664

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.1

When using io.FileInfo.name Files with Japanese characters are ignored

Asked by yo_bee in .NET, Visual Studio, Microsoft Visual Basic.Net

Tags: VB.net

I have a basic vb.net form that is used to give me a file count and output the directory and file name. Works just fine until the directory contains Japanese characters in the file name.
Not sure how to attack this one.
Any ideas?

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

           
           
             Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim StrFiles As String
        StrFiles = TextBox1.Text
 
        SaveFileDialog1.Title = "Please Select a File"
        SaveFileDialog1.InitialDirectory = "C:\"
        SaveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        SaveFileDialog1.ShowDialog()
 
        Dim f, d
        
        Using sw As StreamWriter = New StreamWriter(SaveFileDialog1.FileName)
            sw.WriteLine("Directory Path" & vbTab & "File Name" & vbTab & "Date Modified")
            f = 0
            d = 0
            sw.WriteLine(StrFiles)
 
            For Each folder In Directory.GetDirectories(StrFiles)
                Dim SubDI As New DirectoryInfo(folder)
                Dim SubFI As FileInfo() = SubDI.GetFiles()
                Dim SubFItemp As FileInfo
                sw.WriteLine(folder)
                d = d + 1
                For Each SubFItemp In SubFI
                    
                    sw.WriteLine(vbTab & SubFItemp.Name & vbTab & SubFItemp.LastWriteTime)
                    f = f + 1
                Next
 
                For Each subdir In Directory.GetDirectories(folder)
                    Dim SubDi2 As New DirectoryInfo(subdir)
                    Dim SubFI2 As FileInfo() = SubDi2.GetFiles()
                    Dim SubFiTemp2 As FileInfo
                    sw.WriteLine(subdir)
                    d = d + 1
                    For Each SubFiTemp2 In SubFI2
                        
                        sw.WriteLine(vbTab & SubFiTemp2.Name & vbTab & SubFiTemp2.LastWriteTime)
                        f = f + 1
                       
                    Next
 
                Next
 
 
            Next
        End Using
        RichTextBox1.Text = ("Search has completed and outputed to: " & SaveFileDialog1.FileName & vbCrLf _
                             & "Number of Directories searched: " & d & vbCrLf _
                             & "Number of Files searched: " & f)
 
    End Sub

           
         

20091111-EE-VQP-91 - Hierarchy / EE_QW_3_20080625

1. CodeCruiser488,791
2. abel465,249
3. Idle_Mind459,720
4. TheLearn...375,874
5. Dhaest279,401
6. oobayly274,248
7. emoreau230,014
8. jpaulino220,687
9. nmarun173,575
10. jaime_oliv...167,984
11. Omego2K165,286
12. kaufmed151,382
13. webtubbs147,044
14. angelIII131,990
15. ragi0017128,710
16. spprivate112,984
17. jensfiederer110,768
18. Fernando...106,587
19. daveamour106,532
20. pivar104,000
21. sunithnair96,554
22. ToddBeau...92,560
23. guru_sami86,768
24. Juan_Bar...86,494
25. mlmcc85,515

1. TheLearn...2,427,836
2. Idle_Mind1,191,487
3. emoreau814,732
4. iboutchkine809,868
5. Dhaest672,668
6. jaime_oliv...604,776
7. jpaulino598,835
8. mmarinov556,677
9. CodeCruiser532,446
10. gregoryyo...530,316
11. Fernando...489,357
12. graye486,293
13. abel482,149
14. naveenko...451,699
15. angelIII396,098
16. webtubbs361,351
17. testn352,601
18. jensfiederer336,483
19. RobertRFr...333,569
20. YZlat332,657
21. surajguptha324,880
22. Arthur_...316,064
23. AlexFM304,664
24. VBRocks297,419
25. Mikal613280,938

When using io.FileInfo.name Files with Japanese characters are ignored

Asked by yo_bee in .NET, Visual Studio, Microsoft Visual Basic.Net

Tags: VB.net

About this solution