BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 6 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 6 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 36 le Lun 23 Sep 2024, 10:15
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[BAT] Batch SaveDialog EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[BAT] Batch SaveDialog EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[BAT] Batch SaveDialog EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[BAT] Batch SaveDialog EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[BAT] Batch SaveDialog EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[BAT] Batch SaveDialog EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[BAT] Batch SaveDialog EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[BAT] Batch SaveDialog EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[BAT] Batch SaveDialog EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le deal à ne pas rater :
LEGO Icons 10331 – Le martin-pêcheur
35 €
Voir le deal

[BAT] Batch SaveDialog

Aller en bas

[BAT] Batch SaveDialog Empty [BAT] Batch SaveDialog

Message par Delmar Grande Sam 15 Juin 2013, 05:03

Exemplo de Batch SaveDialog.Cool

Code:
@echo off
mode con:cols=90 lines=12
::Script criado no masbat v2.0
title -==*==- Batch SaveDialog -==*==-
(
echo Set objDialog = CreateObject^( "SAFRCFileDlg.FileSave" ^)
echo.
echo '      Pode se usar "SAFRCFileDlg.FileOpen"
echo '      ou "SAFRCFileDlg.FileSave" dialog!
echo objDialog.FileName = "test_save.txt"
echo ' Nota: O FileType propriedade é meramente cosmético, isso não acontecer
echo '      anexar automaticamente a extensão do arquivo certo!
echo '      Então, certifique-se de digitar a extensão do mesmo!
echo objDialog.FileType = "Arquivo de texto"
echo If objDialog.OpenFileSaveDlg Then
echo    WScript.Echo objDialog.FileName
echo End If
)>"%tmp%\SaveDialog.vbs"
for /f "tokens=* delims=*" %%a in ('Cscript "%tmp%\SaveDialog.vbs" //nologo') do (set "a=%%a")
::if "%a%" <> "" goto Salvar
if "%a%" NEQ "" goto Salvar
:volta
echo Vocˆ escolheu "%a%"
pause>nul
:Salvar
(
echo Delmar Grande
echo http://bbat.forumeiro.com/
)>"%a%"
goto volta

Obs: esse script funciona 100% no xp se no windows 7 não funcionar é porque esta faltando a DLL activex safrcdlg.dll link para Donwload [Vous devez être inscrit et connecté pour voir ce lien] e deve Regitrar assim regsvr32 safrcdlg.dll
Delmar Grande
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum