VBNet - Форум - Тип файла

Вопрос: Тип файла Добавлено: 18.12.09 09:12

Автор вопроса: Александр

Подскажите, как определить тип файла:word, excel. Расширение не стандартное для этих типов (например, все файлы .edo и из них надо выбрать)
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| Цитата \| #1	Добавлено: 18.12.09 11:53
	Dim files() As String = System.IO.Directory.GetFiles(path, "*.edo", SearchOption.AllDirectories) И поотом перебирай циклом Ответить

Номер ответа: 2 Автор ответа: Александр Вопросов: 3 Ответов: 5	Профиль \| Цитата \| #2	Добавлено: 18.12.09 12:18
	Не, смысл в открытии файла. По клику на открытие прога определяет тип файла и открывает его в соответствующем приложении. Типа Process.Start("Excel.exe", f) Ответить

Номер ответа: 3 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| Цитата \| #3	Добавлено: 18.12.09 12:24
	Я ничего не понел)))тебе разрешение из строки вырезать чтоли надо? Ответить

Номер ответа: 4 Автор ответа: Александр Вопросов: 3 Ответов: 5	Профиль \| Цитата \| #4	Добавлено: 18.12.09 12:45
	Мне надо открыть файл. Если он вордовский, то вордом, а если экселевский, то экселем. Ну, типа сигнатуру просмотреть и определить тип. Зная тип, можно на его открытие натравить подходящее приложение. Dim prog As System.Diagnostics.Process opD = "" If ListView1.SelectedItems.Count > 0 Then opD = (ListView1.SelectedItems(0).Text) prog = New System.Diagnostics.Process Try Process.Start("Excel.exe", opD) Catch End Try End If Ответить

Номер ответа: 5 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| Цитата \| #5	Добавлено: 18.12.09 19:13
	ну попробуй так... сначала ищешь в файле байты 52 00 6F 00 6F 00 74 00 20 00 45 00 6E 00 74 00 72 00 79 00 потом после них до конца файла ищи, если встретятся 57 00 6F 00 72 00 64 00 44 00 6F 00 63 00 75 00 6D 00 65 00 6E 00 74 00 то это ворд, если 57 00 6F 00 72 00 6B 00 62 00 6F 00 6F 00 6B 00 то эксель это верно для 2003 по крайней мере, для новых не знаю Ответить

Номер ответа: 6 Автор ответа: Not андерстен Вопросов: 22 Ответов: 33	Профиль \| Цитата \| #6	Добавлено: 19.12.09 00:22
	Dim wer() As String = IO.Directory.GetFiles("C:\" For i As Integer = 0 To wer.Length - 1 'If IO.Path.GetExtension(wer(i)) = ".txt" Then If wer(i).EndsWith(".txt" Then 'Process.Start("winword" Shell("winExcel" End If 'End If Next Ответить

Номер ответа: 7 Автор ответа: Not андерстен Вопросов: 22 Ответов: 33	Профиль \| Цитата \| #7	Добавлено: 20.12.09 20:17
	че не катет? Ответить

Номер ответа: 8 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| Цитата \| #8	Добавлено: 20.12.09 20:37
	Ему нужно узнать, на какую прогу зарегистрирован, напирмер, файл .DOC Ответить

Номер ответа: 9 Автор ответа: Not андерстен Вопросов: 22 Ответов: 33	Профиль \| Цитата \| #9	Добавлено: 20.12.09 22:35
	ясьно Ответить

Номер ответа: 10 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| Цитата \| #10	Добавлено: 20.12.09 23:55
	ему нада узнать файл *.edo чем является на самом деле вордом или экселем Ответить

Номер ответа: 11 Автор ответа: Александр Вопросов: 3 Ответов: 5	Профиль \| Цитата \| #11	Добавлено: 21.12.09 08:14
	Всем спасиб. Идею понял. Буду пробовать. Ответить

Страница: 1 |