Sziasztok!
Visual studio 2008-ban irok egy progit. A következő kódban egy mappát akarok létrehozni egy feltétel alapján. A gond az, hogy mindigy az egyéb mappát hozza csak létre, és nem jövök rá, hogy mi a hiba...:
For Each fajl In fajlok ' csoportosító ciklus
fajlnev = fajl.Name
kep.Image = Image.FromFile(elut & "\" & fajlnev) ' a kép betöltése
kep.Refresh()
szel = kep.Image.Size.Width ' a kép szélessége
mag = kep.Image.Size.Height ' a kép magassága
arany = szel / mag
Str(arany)
MsgBox(arany)
Select Case arany ' arány kiválasztása
Case "1,333333"
mappanev = "4:3"
Case "1,777777"
mappanev = "16:9"
Case Else
mappanev = "egyéb"
End Select
If Directory.Exists(elut & "\" & mappanev) = False Then
Directory.CreateDirectory(elut & "\" & mappanev)
End If
File.Copy(elut & "\" & fajlnev, elut & "\" & mappanev & "\" & fajlnev, True)
kep.Image = Image.FromFile(elut & "\" & mappanev & "\" & fajlnev)
kep.Refresh()
If athelyez.Checked = True Then
File.Delete(elut & "\" & fajlnev)
End If
Next fajl
Ha msgbox-al megnézem az arany értékét, akkor a case-ban megadott értékeket írja ki.... |
