右键添加了一个新建空白文件(无后缀名)

窄口牛 · 发表于 2018-4-22 21:36:51

现在是用vbs取时间秒来实现随机，怎么写可以没有新文件就建立新文件，有新文件，就在新文件后面加个序号，类推累加序号？

窄口牛 · 发表于 2020-2-18 22:13:18

本帖最后由窄口牛于 2023-1-4 19:55 编辑

新的改成酱紫的了

右键添加新建空白文件.rar (1.04 KB, 下载次数: 36)

窄口牛 · 发表于 2018-4-22 23:07:47

执行一次建立一个文件。

tt911 · 发表于 2018-4-23 09:42:41

VBS或批处理不会
习惯用ahk写
代码轻松完成
你要的功能太少了
你想好10条再来问
我给你现编

窄口牛 · 发表于 2018-4-23 11:11:32

tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

谢谢关注，给你发qq消息没看到？

dos时代菜鸟 · 发表于 2018-4-23 11:32:21

举个例子，先。

tt911 · 发表于 2018-4-23 11:42:23

本帖最后由 tt911 于 2018-4-23 11:46 编辑

楼主你这个要求不太明确
我还是来个我思路的吧
1. 弹出一个输入框来，用户输入扩展名
2.然后在资源管理器中，自动的生成一个《以当前日期+扩展名》的文件
3.按一下热键就生成一个
思路源于http://bbs.wuyou.net/forum.php?mod=viewthread&tid=408265

要想i+1 也不难
关键你是想记录下来呢
下次还能用呢？还是本次临时i+1下去呢？

构思不同，两种实现方式就有差别了。

你的随机不如这样生成：生成当前年月日+时分秒
最后组合成：当前年月日+时分秒 +i+1 +扩展名

窄口牛 · 发表于 2018-4-23 11:52:56

vbs执行一次建立一个名字为新文件的空白文件没有扩展名，如果已经有一个，就后面加个数字1，已经有新文件1，就建立的名字叫新文件2。不用提问填写扩展名，提问也行。

窄口牛 · 发表于 2018-4-23 11:55:06

我现在就是随机两位数字，不管有没有叫新文件的文件，用的是时间秒的末两位。

窄口牛 · 发表于 2018-4-23 14:29:43

@echo off
::reg add "HKCR\Directory\Background\shell\newfile\command" /ve /d "wscript.exe c:\windows\新文件.vbs" /f
echo set fso=CreateObject("Scripting.FileSystemObject")>>%systemroot%\新文件.vbs
echo set fw=fso.createtextfile("新文件"^&""^&Second(Now),^2)>>%systemroot%\新文件.vbs
echo fw.close>>%systemroot%\新文件.vbs

复制代码

重复概率不大，因为连续建立几个本身就不多。

窄口牛 · 发表于 2018-4-23 14:36:14

窄口牛发表于 2018-4-23 11:11
谢谢关注，给你发qq消息没看到？

私信

slore · 发表于 2018-4-24 11:17:11

本帖最后由 slore 于 2018-4-24 11:18 编辑

不明白为什么用时间。。。会重复的。

就按你需求的逻辑，存在就加1，直到不存在建立有什么问题？

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=386879

窄口牛 · 发表于 2018-4-24 11:40:15

好的，我试试。

窄口牛 · 发表于 2018-4-26 07:07:13

本帖最后由窄口牛于 2018-4-26 07:08 编辑

其实也就是vbs，ini，inf，lst，cfg，sh，lua，还有安卓86里的很多。

houxiren · 发表于 2018-4-28 17:33:43

tt911 发表于 2018-4-23 09:42
VBS或批处理不会
习惯用ahk写
代码轻松完成

大师，好。
能否用AHK编一个能自定义快捷键的程序，或者只是AHK文件也可以
1，支持同目录下同名ini文件用于保存设置
2，支持相对路径
3，自定义的键，可以是 WIN+字母或数字
谢谢大师

窄口牛 · 发表于 2018-6-3 10:06:39

@echo off
reg delete "HKCR\.txt\ShellNew" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "MUIVerb" /d "新建" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "Position" /d "Bottom" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SubCommands" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew" /v "SeparatorAfter" /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell" /ve /d "" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /v "Icon" /d "imageres.dll,-2" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt" /ve /d "空文件" /f
reg add "HKCR\Directory\Background\shell\WinXNew\shell\1.txt\command" /ve /d "wscript c:\windows\新文件.vbs" /f
echo set fso=createobject("scripting.filesystemobject") : name=^1>>%systemroot%\新文件.vbs
echo while fso.fileexists("新文件"^&""^&name)=true>>%systemroot%\新文件.vbs
echo name=name+1>>%systemroot%\新文件.vbs
echo wend>>%systemroot%\新文件.vbs
echo set o=fso.opentextfile("新文件"^&""^&name,2,true)>>%systemroot%\新文件.vbs

复制代码

holley2008 · 发表于 2018-6-3 16:38:24

窄口牛发表于 2018-6-3 10:06

不错，已经很完善了！

窄口牛 · 发表于 2020-2-19 22:46:36

通过vbs写文件头，那些只有文件头区分的文件就都可以建立。

moxue289890 · 发表于 2020-2-20 19:01:33

是什么问题呢

窄口牛 · 发表于 2023-1-4 20:44:15

本帖最后由窄口牛于 2023-1-4 20:46 编辑

图像文件，不能用文件头解决，但是vbs可以用wia建立图片

'On Error Resume Next
Set v = CreateObject("WIA.Vector")
For i = 1 To 12 * 12
v.Add &HFF8B0000
Next
Set Img = v.ImageFile(12,12)
Img.SaveFile "Blue." & Img.FileExtension

如何可以像win的建立bmp那样空白的？有了bmp就能转换成PNG GIF JPEG TIFF

gutaiping2006 · 发表于 2023-1-5 08:20:25

楼主的方法很好，期待更加完善

窄口牛 · 发表于 2023-1-5 21:10:35

看来我的想法有问题，win右键新建的空白图像文件和文本改后缀一样效果。

yyz2191958 · 发表于 2023-1-7 07:33:49

思路很不错哦

a583091790 · 发表于 2023-1-8 11:43:10

感谢分享。

窄口牛 · 发表于 2023-2-20 16:51:08

本帖最后由窄口牛于 2023-2-21 07:44 编辑

Option Explicit
Dim sTEXT,sFILE
sFILE = "grub.cfg"
sTEXT = "#This is a grub2 configuration file "
Call WriteFileUTF8_NOBOM(sFILE,sTEXT)
WScript.Echo(sTEXT)
Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
Const adTypeBinary = 1
Const adTypeText = 2
Const adModeReadWrite = 3
Dim oUTF8Stream,oBinaryStream
Set oUTF8Stream = CreateObject("ADODB.Stream")
Set oBinaryStream = CreateObject("ADODB.Stream")
oUTF8Stream.Type = adTypeText
oUTF8Stream.Charset = "utf-8"
oUTF8Stream.Open
oUTF8Stream.WriteText sTEXT
oUTF8Stream.Position = 3 ' Skip BOM
oBinaryStream.Type = adTypeBinary
oBinaryStream.Mode = adModeReadWrite
oBinaryStream.Open
oUTF8Stream.CopyTo oBinaryStream
oUTF8Stream.Flush
oUTF8Stream.Close
oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
oBinaryStream.Flush
oBinaryStream.Close
Set oUTF8Stream = Nothing
Set oBinaryStream = Nothing
End Sub

复制代码

怎么粘到后面？用于创建cfg文件？

wfg1555 · 发表于 2023-7-18 10:30:30

有新建文本文档的吗？

zncs520 · 发表于 2023-7-18 21:17:06

谢谢分享。。。

wfg1555 · 发表于 2023-7-20 11:32:24

我的WIN10右键菜单这样

wwdzcdb · 发表于 2023-11-6 22:40:21

wfg1555 发表于 2023-7-20 11:32
我的WIN10右键菜单这样

求分享新建文件夹和新建文本文档源码

远大的理想 · 发表于 2024-7-20 18:22:39

谢谢分享，很有用

		自动登录	找回密码
密码			注册

[求助] 右键添加了一个新建空白文件(无后缀名)

评分

点评

点评

点评

点评