谢谢分享，很有用

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

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

我的WIN10右键菜单这样

谢谢分享。。。

有新建文本文档的吗？

1. Option Explicit
   
2. 
   
3. Dim sTEXT,sFILE
   
4. 
   
5. sFILE = "grub.cfg"
   
6. sTEXT = "#This is a grub2 configuration file "
   
7. 
   
8. Call WriteFileUTF8_NOBOM(sFILE,sTEXT)
   
9. 
   
10. WScript.Echo(sTEXT)
    
11. 
    
12. Private Sub WriteFileUTF8_NOBOM(sFILE,sTEXT)
    
13.     Const adSaveCreateNotExist = 1
    
14.     Const adSaveCreateOverWrite = 2
    
15.     Const adTypeBinary = 1
    
16.     Const adTypeText = 2
    
17.     Const adModeReadWrite = 3
    
18. 
    
19.     Dim oUTF8Stream,oBinaryStream
    
20.     Set oUTF8Stream = CreateObject("ADODB.Stream")
    
21.     Set oBinaryStream = CreateObject("ADODB.Stream")
    
22. 
    
23.     oUTF8Stream.Type = adTypeText
    
24.     oUTF8Stream.Charset = "utf-8"
    
25.     oUTF8Stream.Open
    
26.     oUTF8Stream.WriteText sTEXT
    
27.     oUTF8Stream.Position = 3 ' Skip BOM
    
28. 
    
29.     oBinaryStream.Type = adTypeBinary
    
30.     oBinaryStream.Mode = adModeReadWrite
    
31.     oBinaryStream.Open
    
32. 
    
33.     oUTF8Stream.CopyTo oBinaryStream
    
34.     oUTF8Stream.Flush
    
35.     oUTF8Stream.Close
    
36. 
    
37.     oBinaryStream.SaveToFile sFILE, adSaveCreateOverWrite
    
38.     oBinaryStream.Flush
    
39.     oBinaryStream.Close
    
40. 
    
41.     Set oUTF8Stream = Nothing
    
42.     Set oBinaryStream = Nothing
    
43. End Sub

复制代码

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

感谢分享。

思路很不错哦

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

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

图像文件，不能用文件头解决，但是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

是什么问题呢

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

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

不错，已经很完善了！

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

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

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

好的，我试试。

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

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

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

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

私信

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

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

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

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

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

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

举个例子，先。

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

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

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

执行一次建立一个文件。