OMOH_RD
Маленький Творец Большого Мира........ ЛЗ-20-НХ
Сидел вот над новым тупорылым скайпом, смотрел как он раскладывает фотки...
Мне много фоток шлют... Все приходят в формате ^JKASDJBCASGSJDABNMNCGAKHWLMDACHUGFEA_код...
И сохраняя кладет вместе предпросмотр (код thumbnail) и оригиналный файл (код fullsize)... или картинка вместилась в предпросмотр без изменения размера (код orig)... или например сам шлешь фотки и они маркируются как iномер^HIYLBKASDKW...
Короче заебало это говно и нахуярил прогу... одна кнопка - все фотки по трем папкам...
Кто хочет может пиздить...

VB.NET. На форме 4 текстбокса и кнопка.
Собсно код:
Imports System
Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sSkypePath As String
Dim sFullsize As String
Dim sPreviews As String
Dim sOthers As String
Dim bMove As Boolean

sSkypePath = TextBox4.Text.ToString
sFullsize = TextBox1.Text.ToString
sPreviews = TextBox2.Text.ToString
sOthers = TextBox3.Text.ToString

If System.IO.Directory.Exists(sSkypePath) Then

Dim di As DirectoryInfo = New DirectoryInfo(sSkypePath)
' Get a reference to each file in that directory.
Dim fiArr As FileInfo() = di.GetFiles()
' Display the names of the files.
Dim fri As FileInfo

Dim sDestination As String

For Each fri In fiArr
bMove = True
If fri.Name.Substring(0, 1) = "^" Then

If fri.Name.Contains("fullsize") Or fri.Name.Contains("orig") Then
sDestination = sFullsize
ElseIf fri.Name.Contains("thumbnail") Then
sDestination = sPreviews
Else
sDestination = sOthers
End If

ElseIf fri.Name.Substring(0, 1) = "T" Then
sDestination = sOthers
bMove = False

Else
sDestination = sOthers
End If

If System.IO.Directory.Exists(sSkypePath & "\" & sDestination) = False Then
System.IO.Directory.CreateDirectory(sSkypePath & sDestination)
End If

If bMove Then
If System.IO.File.Exists(sSkypePath & "\" & sDestination & "\" & fri.Name) = False Then
System.IO.File.Move(sSkypePath & "\" & fri.Name, sSkypePath & "\" & sDestination & "\" & fri.Name)
End If
End If

Next fri

MsgBox("all done")

Process.Start(sSkypePath)
Else
MsgBox("Wrong skype folder!")
End If

End Sub

End Class

@темы: vb.net